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IDENTIFICATION 

PROOUCT ID: AC-T779A-MC 

PROOUCT TITLE? CZTKGA TK25 FRT ENO FUNC *3 

PROOUCT DATE: MARCH. 1954 

DEPARTMENT: TAPE DIAGNOSTIC ENGINEERING 

AUTHOR} DICE SYSTEMS. INC, 



COPYRIGHT (C) 1964 BY 
DIGITAL EQUIPMENT CORPORATION, 
W6STB0R0. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIEO 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION 
OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER COPIES 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER 
PERSON. NO TITLE 70 AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 

THE INFORMATION IN THIS SOFTWAhE IS SUBJECT TO CHANG: WITHOUT NOTICE ANQ 
SHOU.D NOT BE CONSTRUED AS A COfWTMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY Of ITS 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED 'BY DIGITAL* 
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1.0 ABSTRACT 

THIS IS A PDP-U/ISI RESIDENT DIAGNOSTIC WHICH CHECKS THE FUNCTIONALITY OF 
AN TK25 MAGTAPE SUBSYSTEM WHILE CONNECTED TO A PDP-11 SYSTEM (Q-BUS OR 
WIBUS). THE PROGRAM HAS BEEN DIVIDED INTO FOUR MAJOR PIECES: CZTKE, 
CZTKF, CZTKG. CZTKH, SUCCESSFUL RUN EXAMPLES. AND TEST DESCRIPTIONS HAVE 
BEEN PROVIDED FOR EACH PROGRAM. 

THE PROGRAMS PROVIDE ERROR MESSAGES WHICH IDENTIFY FAILING FUNCTIONS, ANO 
AID IN DEVICE REPAIR. REFERENCE THE FOLLOWING DIGITAL EQUIPMENT DOCUMENTS j 

1. CIQPMAO XXDP* PROGRAMMER'S MANUAL* DOCUMENT NUMBER AC~S296A~ACs 
DATE: 14 JULY I960, 

1.1 REVISION HISTORY 

NEW RELEASE APRIL 1964 
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2.0 REQUIREMENTS 



2.1 HARDWARE REQUIREMENTS 



PDP-11 FAMILY PROCESSOR WITH 32K WORDS Of MEMORY 
TK25 MAGTAPE SUBSYSTEM (DRIVE AND CONTROLLER) 
CAUTION:DIAGNOSTIC REQUIRES 32K WORDS OF MEMORY 
(28K USEABLE I.E. 4K FOR I/O PAGE) 



2.1.1 OPTIONAL HARDWARE - 

FOUR TK25 CONTROLLERS PER PDP-11, ONE 
DRIVE PER CONTROLLER 



2.2 SOFTWARE REQUIREMENTS 

PDP-11 DIAGNOSTIC SUPERVISOR (CIQPMAO VERSION 34 OR LATER) 
PDP-11 DIAGNOSTIC LOADER /MONITOR (XXDPO 



2.3 PREREQUISITES 

FUNCTIONAL POP 11/LSI FAMILY CENTRAL PROCESSOR AND MEMORY 

FACTIONAL CONSOLE TERMINAL 

FACTIONAL STANOALONE DIAGNOSTIC SUPERVISOR 
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3.0 OPERATING INSTRUCTIONS - OPERATOR COMMANDS 

3.1 OPERATOR COMMANOS 

THE TK25 DIAGNOSTICS ARE PDP-11 DIAGNOSTIC SUPERVISOR COMPATIBLE PROGRAMS. 
ALL LOADING AND RUN TIME INSTRUCTIONS CAN BE REFERENCED IN THE PDP-11 
PROGRAMMER'S MANUAL "CIQPMAO XXDP" PROGRAMMER'S MANUAL NUMBER AC-S296A-AC. 

BOOT THE DIAGNOSTIC XXDP* MEDIA (OPERATOR RESPONSES ARE UNDERLINED) 

CmDLEO XXDP* DL MONITOR 
BOOTED VIA UNIT 
28K NON-UNIBUS SYSTEM 

ENTER DATE <DO-MMM-YY>: 29-JAN-82 



RESTART ADDRESS; 152010 

THIS IS XXDP* TYPE "H" OR "H/L" FOR HELP, 

.R CZTKGA 



CZTKGA.BIC 

DRS-EO 

CZTKG-A-0 

C/TKGA TK-25 FRT END FUNC 03 UNIT IS TK25 

RSTRT ADR 147642 

DR>START/FLAG:PNT}HOE 



THE ABOVE COMMAND UILL START THE DIAGNOSTIC* THE COMMANO HAS TWO 
SWITCHES ON WHICH ARE "PRINT EACH TEST N8R, AS EXECUTED" AND "HALT ON 
ERROR", 
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3,2 HARDWARE PARAMETERS 



AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO THE DIAGNOSTIC 
SUPERVISOR). THE PROGRAM WILL ISSUE THE "CHANGE HW?" QUESTION TO ASK IF THE 
HARDWARE PARAMETERS ARE TO BE CHANGED (EY THE OPERATOR). 

ON A "N" (NO) RESPONCE TO THE QUESTION, THE PROGRAM WILL USE IT'S DEFAULT 
HARDWARE PARAMETER VALUES. IT WILL DEFA XT TO ONE UNIT SELECTED (UNIT 0), 
THE DEFAULT TS8A/TSDB WILL BE 17Z522 AND THE INTERRUPT VECTOR WILL BE 224. 

ON A *Y" (YES) RESPONSE TO THE QUESTION. THE FOLLOWING QUESTIONS WILL THEN 
BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS TO PE TESTED. A VALUE. 
IF PRESENT. LOCATED TO THE LEFT OF THE Qi-ESTION MARK IS THE DEFAULT VALUE 
THAT WILL BE TAKEN ONLY IF A CARRIAGE RETURN IS TYPED AS A RESPONSE. A 
"(D)" IN A QUESTION INDICATES THAT A DECIMAL NUMBER IS REQUIRED AS A 
RESPONSE. AN "(OV INOICATES AN OCTAL NUMBER IS BEING SOL :iTED. AN "CD" 
THAT A LOGICAL RESPONSE IS TO BE MADE: "Y" TOR YES. "N* FUR NO. 

UNITS (D) ? < ENTER THE NUMBER OF CONTROLLERS 
PRESENT TO BE TESTED> 



SEQ 6 



UNIT 

DEVICE ADDRESS (0) 172522 ? <ENTER THE ADDRESS OF THE 

TSBA/TSDB REGISTF.R> 



VECTOR (0) 224 ? 



<ENTER ADDRESS OF INTERRUPT 
VECTOR> 



THE ADOTESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER Of 
WITS (CONTROLLERS) SPECIFIED IN THE " UNITS ?» QUESTION. LOGICAL UNIT 
Nl^BERS ARE ASSIGNED IN ORDFR BEGINNING AT 0* UP TO EIGHT UNITS CAN BE 
SELECTED FQR TESTING. 
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3.3 SOFTWARE PARAMETERS 

THE FOLLOWING QUESTIONS ARE ASKED ON A START, RESTART. OR CONTINUE. THEY 
ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES. 

CHANGE SW (L) ? < TYPE "Y" TO CAUSE THE FOLLOWING 

QUESTIONS TO BE ASKED. > 

INHIBIT ITERATIONS (L) N ? < TYPE "Y" TO PREVENT MULTIPLE 

ITERATIONS OF CERTAIN TESTS. 
THIS CAUSES EACH TEST PASS TO 
RUN AS QUICKLY AS POSSIBLE. 
ONLY QUICK -RUNNING LOGIC 
TESTS USE MULTIPLE ITERATIONS 

ENABLE CONTROLLER RAM DUMP ON ERROR (L) N? < TYPE "Y" TO DUMP 

SELECTED RAM CONTENTS IN THE 
CONTROLLER MODULE. > 
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4.0 OPERATING INSTRUCTIONS - SAMPLE PRINTOUTS 



SEQ 6 



4.1 SUCCESSUL RUN EXAMPLES 



4,1*1 SUCCESSFUL RUN EXAMPLE - CZTKG - 

TST: 001 SPACE RECORDS TEST 
TST: 002 REREADS TEST 
TST: 003 WRITE DATA RETRY TEST 
TST. 004 WRITE TAPE MARK TEST 
CZTKG EOP I 

TOTAL ERRS 

NOTE: PROGRAM NOW STARTS OVER AGAIN AT TEST 1 
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4,2 OPCRATING INSTRUCTIONS - SAMPLE ERROR MESSAGES 

ERROR MESSAGE EXAMPLE 1 

TST; 001 SPACE RECOROS TEST 

CZTKG HRD ERR 00120 ON UNIT 00 TST 001 SUB 003 PC: 025214 

TAPE NOT AT BOT AFTER REWIND COMMAND 

EXPD: 002022 RECVt 002020 XOR: 000002 

ERROR MESSAGE EXAMPLE 2 

CZTKG HRD ERR 00122 ON UNIT 00 TST 001 SUB 003 PC: 025332 
TSSP NOT CORRECT AFTER POSITION C SPACE) COMMANO 

TSSR-100306 

TSSR BITS SET; SC, SSR, OFL 

TERMINATION CODE - FUNCTION REJECT 

♦♦♦♦♦CHECK CABLES BETWEEN CONTROLLER ANO TRANSPORT^**** 

PACKET ADDRESS -030240 

PACKET WORD tt) -140410 

PACKET WORD *1 -000001 

PACKET WORD #2 -000000 

PACKET WORD *3 -000000 

MESSAGE BUFFER ADDRESS -030130 
MESSAGE BUFFER CONTENTS; 

MESSAGE BUFFER HEADER -101021 

DATA FIELD LENGTH -000012 

RESIDUAL BYTE COUNTER -000000 

XSTATO CONTENTS -000012 

XSTAT1 CONTENTS -000000 

XSTAT2 CONTENTS -001000 

XSTAT3 CONTENTS -000040 



Kl 

USER G D0CUMENTATION NO rjNC ** MACR ° M12 °° 2 °- APR - 84 08}13 PAGE U SEQ 10 

5.0 PROGRAM RUN TIMES 

THE AVERAGE RUN TIMES OF THE PROGRAMS ARE LISTED BELOW. THESE FIGURES ARE 
TO BE USED AS A GUIDE, THE TIMING WAS DONE ON A PDP-11/25 (LSI) PROCESSOR 
WITH A LA-12C CONSOLE. 

THE PROGRAMS RUN IN NON-ITERATIVE MOOE . EACH TF.ST IS RUN ONCE, WITH NO 
ITERATIONS. THEREFOR, THE DEFAULT MODE (NORMALLY ITERATIVE) AND THE 
NON-ITERATIVE MODE TIMES ARE IDENTICAL. 

5.1 RUN TIMES - CZTKG 



TEST 


N/I 


DEF 


NUMBER 


SECS. 


SECS. 


1 


65 


65 


2 


130 


130 


5 


120 


120 


4 


35 


35 



THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 4 TN ONE COMMAND 

Q.V. 5 MINS 50 SECONOS 
DEFAULT 5 MINS 50 SECONDS 
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SEQ 11 



6.1 TEiT 1 - SPACE RECORDS TEST 

* NOTE: THIS TEST MUST HAVE A GOOO MAGTAPE IN THE DRI'C * 

* ANY TAPE ERRORS WILL BE DISPLAYED AS TAPE STATUS ALER I * 
***+*****++++*++*** ******** ******************************** 

THIS TEST VERIFIES TH<U THE SPACE RECORDS FORWARD AND SPACE RECORDS REVERSE 
POSITION COMMANDS OPERATE PROPERLY WHEN SPACING OVER NORMAL DATA RECORDS. 
OPERATION UHEN SPACING OVER TAPE MARKS IS VERIFIED IN A SUBSEQUENT TEST. 
THE BASIC URITE DATA TEST SHOULD HAVE BEEN RUN SUCCESSFULLY FOR THIS TEST 
TO PROOUCE MEANINGFUL RESULTS. THIS TEST CONSISTS OF A SERIES OF SUBTESTS. 
IN EACH OF THE SUBTESTS, THE TAPE IS ENTIRELY WRITTEN WITH RECORDS OF 
VARYING SIZES AND DATA CONTENT j THE FIRST 4 BYTES OF EACH RECORD INOICATE 
THAT RECORD'S RELATIVE POSITION ON TAPE. AFTER EACH SPACING OPERATION, THE 
TAPE POSITION IS VERIFIED BY READING THE NEXT OR PREVIOUS RECORD AND 
COMPARING THE POSITION DATA WITH THE EXPECTED RESULT. 



6.1.1 TEST 1, SUBTEST 1: - 

THIS SUBTEST VERIFIES THAT A SPACE RECORDS FORWARD COMMANO WITH THE CLEAR 
VOLUME CHECK CCVC) BIT CLEAR IS REJECTED IF THE VOLUME CHECK FLAG (VOO IS 
SET. 



6.i..2 TEST 1, SUBTEST 2: - 

THIS SUBTEST VERIFIES THAT A SPACE RECORDS REVERSE COMMAND WITH THE CLEAR 
VOLUME CM=rK (CVC) BIT CLEAR IS REJECTED IF 

THE VOL.* CHECK CVCK) FLAG IS 
SET. 



6.1.3 TEST 1. SUBTEST 3; - 

THIS SUBTEST VERIFIES THAT S°ACE RECORDS FORWARD CAN SPACE ONE RECORD OFF 
BOT ANO CAUSE BOT STATUS TO BE CLEARED. 



6.1.4 TEST 1, SUBTEST 4; 

THIS Sl*TEST VERIFIES THAT SPACE RECORDS REVERSE CAN SPACE BACK OVER THE 
FIRST RECORD ON TAPE, 
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o.l.^ TEST 1, SUBTEST 5: - 

THIS SUBTEST VERIFIES THAT SPACE RECORD: FORWARD CAN SPACE A MULTIPLE 
NUMBER OF RECORDS (2 THROUGH 64K, OR THE MAXIMUM NUMBER OF RECORDS WRITTEN 
ON THE TAi>E, WHICHEVER IS LESS,). 

6.1.6 TEST 1, SUBTEST 6; - 

THIS SUBTEST VERIFIES THAT SPACE RECORDS REVERSE CAN SPACE A MULTIPLE 
NUMBER OF RECORDS C2 THROUGH 64K, OR THE MAXIMUM NUMBER OF RECORDS WRITTEN 
ON THE TAPE, WHICH EVER IS LESS). 

6.1.7 TEST 1. SUJTEST 7: - 

THIS SUBTEST VERIFIES THAT SPACE RECORDS REVERSE ISSUED WHILE TAPE IS AT 
BOT RESULTS IN FUNCTION REJECT TERMINATION WITH THE NONEXECUTABLE FUNCTION 
(NEF) ERROR BIT SET. 

6.1.8 TEST 1. SUBTEST 8t - 

THIS SUBTEST VERIFIES THAT A SPACE RECORDS REVERSE COMMANO THAT CAUSES THE 
TAPE TO RUN INTO BOT (WITH THE TAPE NOT INITIALLY AT BOT) CAUSES A TAPE 
STATUS ALERT TERMINATION AND SETS THE REVERSE INTO BOT CRIB) STATUS BIT, 
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6,2 TEST Z - REREADS TEST 

THIS TEST VERIFIES THAT THE REREAD PREVIOUS AND REREAD NEXT COMMANOS 
OPERATE PROPERLY, VARIOUS COMBINATIONS OF ODD AND EVEN DATA BUFFER 
BOUNDRIES, RECORD SIZES CUP TO 64K BYTES IF MEMORY SPACE IS AVAILIABLE), 
AND BYTE-SWAP CSWP) ANO OPPOSITE (OPP) CONRTOL ARE USED. ALSO TESTED ARE 
PROPER TERMINATIONS ON EXCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH 
LONG, RECORD LENGTH SHORT, READ REVERSE AT BOT, ILLEGAL DATA BUFFER 
ADDRESSES, AND DATA BUFFERS IN NONEXISTENT MEMORY. 

6.2.1 TEST 2, SUBTEST 1: - 

THIS SUBTEST VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP-0 ANO SWB-0 
OPERATES PROPERLY. THE TAPE IS FIRST REWOUNO AND THEN WRITTEN WITH A 
SERIES OF TAPE RECORDS VARYING IN LENGTH AND DATA CONTENT. THE TAPE IS 
TICN REWOUND AGAIN. FOR EACH RECORD THE TAPE IS SPACED FORWARD ONE RECORD 
ANO THE REREAD FREVIOUS COMMAND IS ISSUED. RFSULTS (STATUS, DATA, ETC.) 
ARE VERIFIED. THE BYTE COUNT ON EACH REREAD PREVIOUS COMMAND IS SET TO THE 
LENGTH OF THE EXPECTED RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR. 

6.2.2 TEST 2. SUBTEST 2: - 

THIS SUBTEST VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP-0 ANO SUB-1 
OPERATES PROPERLY. THE TEST SEQUENCE IS THE SAME AS THAT USED IN SUBTEST 
\ , BUT IT IS VERIFIED THAT DATA STORED BY THE COMMAND CONTAINS SWAPPED 
BYTES. 

6.2.3 TEST 2, SUBTEST 3: - 

THIS SUBTEST VERIFIES THAT THE. REREAD PREVIOUS COMMANO WITH OPP-1 (READ 
REVERSE, SPACE FORWARD) AND SW6-0 OPERATES PROPERLY. THE TAPE IS FIRST 
REWOUND, AND THEN WRITTEN WITH A SERIES OF TEST RECORDS OF VARYING LENGTH 
ANO DATA CONTENT j THE FIRST FOUR BYTES OF EACH RECORD CONTAIN ITS RECORD 
N^BFR (INDICATING POSITION ON TAPE). THE TAPE IS THEN REWOUND AGAIN. FOR 
EACH TEST RECORD THE FOLLOWING SEQUENCE IS EXECUTED? 

1. THE REREAD PREVIOUS COMMANO WITH Of>P-l IS ISSUED AND THE RESULTS 
ARE CHECKED. 

2. A READ FORWARD COMMANO IS THEN ISSUED AND THE DATA IS CHECKED TO 
VERIFY THAT THE TAPE WAS POSITIONED PROPERLY AFTER THE REREAD 
PREv'TOUS COMMAND (E.G. THE TAPE SHOULD HAVE BEEN LEFT POSITIONED 
AT THE START OF THE TEST RECORD.). THE READ FORWARD COMMAND 
LEAVES THE TAPE POSITIONED PROPERLY AT THE START OF THE NEXT 
RECORD. 
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THE BYTE COUNT ON EACH REREAD PREVIOUS COMMANO IS SET TO THE LENGTH OF THE 
EXPECTED RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR, 

6*2,4 TEST 2. SUBTEST 4; - 

THIS SUBTEST VERIFIES THAT THE REREAO PREVIOUS COMMAND WITH OPP-1 ANO SWB-1 
OPERATES PROPERLY, THE TEST SEQUENCE IS THE SAME AS THAT USED IN SUBTEST 
3, BUT IT IS VERIFIED THAT DATA STORED BY THE COMMAND CONTAINS SWAPPED 
BYTES, 

6.2.5 TEST 2. SUBTEST 5: - 

THIS SUBTEST VERIFIES THAT A REREAO PREVIOUS COMMAND READING A RECORD 
LONGER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE STATUS ALERT TERMINATION 
WITH THE RECORD LENGTH LONG (RLL) BIT SET, RESULTS ARE VERIFIED FOR BOTH 
STATES OF OPP < AND 1 ). 

6.2.6 TEST 2, SUBTEST 6j - 

THIS SUBTEST VERIFIES THAT A REREAD PREVIOUS COMMAND READING A RECORD 
SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES TAPE STATUS ALERT TERMINATION 
WITH THE RECORD LENGTH SHORT (RLS) BIT SET, IT IS VERIFIED THAT THE 
RESIDUAL BYTE COUNTER (RBPCR) IN THE MESSAGE BUFFER CONTAINS THE 
APPROPRIATE NONZERO VALUE (E.G THE DIFFERENCE BETWEEN THE ORIGINAL BYTE 
COUNT AND T>C ACTUAL RECORD LENGTH), RESULTS ARE VERIFIED FOR BOTH STATES 
OF OPP ( ANO I ), 

6.2.7 TEST 2, SUBTEST 7: - 

THIS SUBTEST VERIFIES THAT THE REREAO NEXT COTtlAND WITH OPP-0 AND SWB-0 
OPERATES PROPERLY. THE TAPE IS FIRST REWOUND AND THEN WRITTEN WITH A 
SERIES OF TEST RECORDS OF VARYING LENGTH AND DATA CONTENT. THE TAPE IS 
THEN REWOWO AGAIN. FOR EACH TEST RECORD THE TAPE IS SPACEO FORWARD ONE 
RECORD AND A REREAO NEXT COTtlAND IS ISSUED. RESULTS (STATUS, DATA. ETC.) 
ARE VERIFIED. THE BYTE COUNT ON EACH REREAD NEXT COMMAND IS SET TO THE 
LENGTH OF THE EXPECTED RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR, 

6.2.8 TEST 2. SUBTEST 8: - 

THIS SUBTEST VERIFIES THAT THE REREAO NEXT COMMAND WITH OPP-0 AND SWB-l 
OPERATES PROPERLY, THE TE$T SEQUENCE IS THE SAME AS THAT USEO IN SUBTEST 
1. BUT XT XS VEPXFIIQ THAT DATA STORED &Y THE COMMAND CONTAINS SWAPPED 
BYTES, 
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6.2.9 TEST 2. SUBTEST 9: - 

THIS SUBTEST VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP-1 (READ 
FORWARD, SPACE REVERSE) AND SWB-0 OPERATES PROPERLY. THE TAPE IS FIRST 
REWOUND AND THEN WRITTEN WITH A SERIES OF TAPE RECORDS VARYING IN LENGTH 
AND DATA CONTENT i THE FIRST FOUR BYTES OF EACH RECORD CONTAIN ITS RECORD 
Ntf*ER (INDICATING POSITION ON TAPE). THE TAPE IS THEN REWOUND AGAIN. FOR 
EACH TEST RECORD THE FOLLOWING SEQUENCE IS EXECUTED: 

1. THE REREAD NEXT COMMAND WITH OPP-1 IS ISSUED AND THE RESULT IS 
CHECKED. 

2. A READ FORWARD COTtlAND IS THEN ISSUED ANO THE DATA IS CHECKED TO 
VERIFY THAT THE TAPE WAS POSITIONED PROPERLY AFTER THE REREAD NEXT 
COMMAND (E.G. THE TAPE SHOULD HAVE BEEN LEFT POSITIONED AT THE 
START OF THE TEST RECORD). THE REAO FORWARD COMMAND LEAVES THE 
TAPE POSITIONED PROPERLY AT THE START OF THE NEXT TEST RECORD. 

THE BYTE COUNT ON EACH REREAD NEXT COMMAND IS SET TO THE LENGTH OF THE 
EXPECTED RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR. 

6.2.10 TEST 2, SUBTEST 10: - 

THIS SUBTEST VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP-1 ANO SWB-1 
OPERATES PROPERLY. THE TEST SEQUENCE IS THE SAME AS THAT USED IN SUBTEST 
3. BUT IT IS VERIFIED THAT DATA STORED BY THE COMMAND CONTAINS SWAPPED 
BYTES. 

6.2.11 TEST 2, SUBTEST 11: - 

THIS SUBTEST VERIFIES THAT A REREAO NEXT COMMAND READING A rtECORD LONGER 
THAN THE SPECIFIED BYTE COUNT CAUSES TAPE STATUS ALERT TERMINATION WITH THE 
RECORO LENGTH LONG (RLL) BIT SET. RESULTS ARE VERIFIED FOR BOTH STATES OF 
OPP ( 1 AND 0). 

6.2.12 TEST 2, SUBTEST 12: - 

THIS Sl*TEST VERIFIES THAT A REREAD NEXT COMMAND REAOING A RECORD SHORTER 
THAN THE SPECIFIED BYTE COUNT CAUSES TAPE STATUS ALERT TERMINATION WITH THE 
RECORO LENGTH SHORT (RLS) BIT SET. IT IS VERIFIED THAT THE RESIDUAL BYTE 
COLTER IN THE MESSAGE BUFFER CONTAINS THE PROPER NONZERO MESSAGE (E.G. 
THE DIFFERENCE BETWEEN THE THE ORIGINAL BYTE COUNT AND THE ACTUAL RECORD 
LENGTH ), RESETS ARE VERIFIED FOR BOTH STATES OF OPP ( AND i). " 
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6.2,13 TEST 2, SUBTEST 13 t - 

THIS SUBTEST VERIFIES THAT A DATA BUFFER ADDRESS REFERENCING NONEXISTANT 

MEMORY RECOVERABLE ERROR TERMINATION ( TC-4 OR 5) WITH NXM-1 AND THAT THE 

TAPE IS ULTIMATELY POSITIONED PROPERLY. ALL COMBINATIONS OF REREAD 
PREVIOUS/NEXT AND OPP-O/1 ARE TESTED, 



6,2,14 TEST 2, SUBTEST 14; - 

THIS SUBTEST VERIFIES THAT THE REREAD PREVIOUS WITH OPP-0 CSPACE REVERSE, 

REAO FORWARD) ANO REREAD PREVIOUS WITH OPP-1 (READ RE 

VERSE SPACE FORWARD) 

ISSUED WHEN THE TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT 

TERMINATION WITH THE NONEXECUTABLE FUNCTION CNEF) ERROR BIT SET, 



6.2.15 TEST 2, SUBTEST 15: - 

THIS SUBTEST VERIFIES THAT THE REREAD PREVIOUS WITH OPP-1 (SPACE REVERSE, 
READ FORWARD) AND REREAD PREVIOUS WITH OPP-0 ( READ REVERSE, SPACE FORWARD) 
ISSUED WHEN THE TAPE POSITIUNEO JUST BEFORE THE FIRST RECORD ON TAPE ( BUT 
NOT AT BOT) CAUSES TAPE STATUS ALERT TERMINATION WITH THE REVERSE INTO BOT 
(RIB) STATUS BIT SET. 
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6.3 TEST 3 - WRITE DATA RETRY TEST 

************************* **** *************** ******* ********* 

* NOTE: THIS TAPE MUST HAVE A GOOO MAGTAPE IN THE DRIVE * 

* ANY TAPE ERRORS WILL BE DISPLAYED AS TAPE STATUS ALERT, * 

c *********************************************************** 

THIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY COMMAND C SPACE 
REVERSE, ERASE. WRITE DATA). THE TEST CONSISTS OF THE FOLLOWING FIVE 
SUBTESTS, 

6.3.1 TEST 3, SUBTEST 1: - 

THIS SUBTEST VERIFIES THAT A WRITE DATA RETRY COMMAND ISSUED WHILE THE TAPE 
IS POSITIONED AT BOT CAUSES FUNCTION REJECT TERMINATION WITH THE 
NON -EXECUTABLE FUNCTION CNEF) ERROR BIT SET, 

6.3.2 TEST 3, SUBTEST 2: - 

THIS S18TEST VERIFIES THAT A WRITE DATA RETRY COMMAND ISSUED WHILE THE TAPE 

IS POSITIONED BEFORE THE FIRST RECORD ON TAPE ( BUT NOT AT BOT) CAUSES TAPE 

STATUS ALERT TERMINATION, WITH THE REVERSE INTO BOT CRIB) STATUS ERROR BIT 
SET. 

6.3.3 TEST 3, SUBTEST 3: - 

THIS SUBTEST VERIFIES THAT A WRITE DATA RETRY COMMAND WITH SWB-0 TERMINATES 
PROPERLY AND WRITES CORRECT DATA ON TAPE (THE WRITTEN RECORD IS READ AND 
CHECKED). VARIOUS BYTE COUNTS AND DATA PATTERNS ARE USED. 

6.3.4 TEST 3, SUBTEST 4: - 

THIS Sl^TEST VERIFIES THAT A WRITE DATA RETRY COMMAND WITH SWB-1 TERMINATES 
PROPERLY AND WRITES CORRECT DATA ON TAPE (THE WRITTEN RECORD IS READ AND 
CHECKED). VARIOUS BYTE COUNTS AND DATA PATTERNS ARE USED. 

6.3.5 TEST 3. SUBTEST 5: - 

THIS SUBTEST VERIFIES THAT A WRITE DATA RETRY COMMANO IS PERFORMING THE 
ERASE PART OF THE OPERATION BY COMPLETING THE FOLLOWING STEPS: 

1. THE TAPE IS REWCX**) AND A SERIES OF RECORDS ARE WRITTEN WITH THE 
NORMAL WRITE DATA COMMAND. THIS SHOULD RESULT IN RECORDS 
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SEPERATED BY THE STANDARD INTERRECORD GAP. 

?. A PROGRAM TIMING VALUE IS CALIBRATED BY REWINDING THE TAPE ANO 
THEN CONTINUING THE NUMBER OF CYCLES THROUGH A PROGRAMMED LOOP 
REQUIRED TO SPACE OVER THE SERIES OF RECORDS WRITTEN IN THE 
PREVIOUS STEP. 

3. THE TAPE IS AGAIN REWOUND AND THE SAME SERIES OF RECORDS WRITTEN 
AGAIN, THIS TIME USING THE WRITE DATA RETRY COMMAND. THIS SHOULD 
RESULT IN RECORDS SEPERATED BY A A LONG INTERRECORD GAP. 

4. THE TAPE IS AGAIN REWOUND. THE SPACING COMMANO ISSUED. AND THE 
NtJIBER OF TIMING LOOP CYCLES COUNTED TO COMPLETE THE OPERATION. 

5. THE TWO LOOPS ARE COMPARED, CHECKING TO SEE THA'i THEY DIFFER BY A 
SIGNIFICANT AMOUNT. 



G2 
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6. A TEST 4 - WRITE/READ TAPE MARK 

tit********************************************************* 

* NOTEt THIS TEST MUST HAVE A GOOD MAGTAPE IN THE DRIVE ♦ 

* ANY TAPE ERRORS WILL BE DISPLAYED AS A TAPE STATUS ALERT * 

THIS TEST VERIFIES THAT THE WRITE TAPE MARK COMMAND OPERATES PROPERLY. IT 
IS VERIFIED THAT THE TAPE MARK IS WRITTEN ONTO TAPE BY CHECKING THAT THE 
READ AND SPACE RECORDS COMMANDS DETECT THE TAPE MARK, IN ADDITION. SINCE 
WRITE TAPE MARK IS THE FIRST SUBCOfiMAND UNDER THE FORMAT COMMANO BEING 
TESTED, IT IS VERIFIED THAT THE CLEAR VOLUME CHECK (CVC) BIT OPERATES 
PROPERLY AND THAT FORMAT COMMANDS WITH ILLEGAL MODE CODES ARE REJECTED. 

6.4.1 TEST 4. SUBTEST 1: - 

THIS SUBTEST VERIFIES THAT A FORMAT COMMAND (WITH ANY LEGAL MODE CODE) WITH 
THE CLEAR VOLlflE CHECK (CVC) BIT CLEAR IS REJECTED IF THE VOLUME CHECK 
CVCK) FLAG IS SET. ALL VALID MODE COOES ARE CHECKED. 

6.4.2 TEST 4. SUBTEST 2t - 

THIS SUBTEST VERIFIES THAT A FORMAT COMMAND UITH AN ILLEGAL MOOE CODE 
CAUSES FUNCTION REJECT TERMINATION WITH THE ILLEGAL COMMANO (ILC) ERROR BIT 
SET. ALL ILLEGAL MOOE COOES ARE CHECKED. 

6.4.3 TEST 4. SUBTEST 3: - 

THIS SUBTEST VERIFIES THAT WRITE TAPE MARK COMMANDS OPERATE PROPERLY, ANO 
THAT READ COMMANOS SUBSEQUENTLY ISSUED TO DETECT THE WRITTEN TAPE MARKS 
TERMINATE WITH TAPE STATUS ALERT AND THE TAPE MARK DETECTED (TMK) STATUS 
BIT SET. THE FOLLOWING SEQUENCE IS EXECUTED: 

1. THE CONTROLLER IS INITIALIZED AND THE TAPE REWOUND, THIS SETS THE 
VOLUME CHECK (VCK) STATUS BIT. 

2. A WRITE TAPE MARK COMMAND, WITH CVC-1. IS ISSUED AND PROPER 
TERMINATION AND STATUS IS VERIFIED (I.E. VCK-O, ANO TMK-1), 

3. SEVERAL MORE WRITE TAPE MARK COMMANOS. THESE WITH CVC-O, ARE 
ISSUED AND PROPER TERMINATION (NORMAL) ANO STATUS (TMK) VERIFIED. 

4. A READ REVERSE COMMANO IS ISSUED ANO PROPER TERMINATION (TAPE 
STATUS ALERT) ANO STATUS (TMK) VERIFIED. IT IS ALSO VERIFIED THAT 
NO DATA IS TRANSFERRED INTO MEMORY. 

5. A SPACE RECORDS REVERSE COMMAND IS ISSUED AND PROPER TERMINATION 



CZTKGA TK-P5 FrtT END FUNC 05 
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SEQ 20 



(TAPE STATUS ALERT) ANO STATUS ( TMK ) VERIFIED. 

6. THE TAPE IS REWOUND AND A READ FORWARD COMMAND IS ISSUED AND 
PROPER TERMINATION CTAPE STATUS ALERT) ANO STATUS (TMK) VERIFIED. 
IT IS ALSO VERIFIED THAT NO DATA IS TRANSFERRED INTO MEMORY. 

7. A SPACE RECORDS REVERSE COMMAND THAT CONTAINS A RECORD COUNT 
GREATER THAN 1 IS ISSUED. A-: < IT IS VERIFIED THAT TAPE STATUS 
ALERT TERMINATION OCCURED, 1K-1 ANO THAT R8PCR CRESIOUAL 
BYTE/RECORD COUNTER) CONTAINS THE PROPER NONZERO VALUE. THIS 
OPERATION VERIFIES THAT DETECTION OF THE TAPE MARK CAUSE THE SPACE 
RECORDS OPERATION TO BE PREMATURELY TERMINATED. THIS SHOULD LEAVE 
THE DEVICE POSITIONED JUST BEFORE THE FIRST RECORD ON THE TAPE. 

8. TAPE POSITION IS VERIFIED BY ISSUING ANOTHER SPACE RECORDS REVERSE 
COMMAND AND VERIFYING THAT TAPE STATUS ALERT TERMINATION OCCURS, 
WITH THE REVERSE INTO BOT (RIB) ERROR STATUS BIT SET. 

9. A SPACE RECORDS FORWARD COMMANO THAT CONTAINS A RECORD GREATER 
THAN 1 IS ISSUED ANO IT IS VERIFIED THAT TAPE STATUS ALERT 
TERMINATION OCCURED, TMK-1, ANO THAT RBPCR (RESIOUAL BYTE/RECORD 
COUNTER) CHNTAINS THE PROPER NON2ER0 VALUE. THIS OPERATION 
VERIFIES THAT DETECTION OF THE TAPE MARK CAUSES THE SPACE RECORDS 
OPERATIONS TO PREMATURELY TERMINATE, 



\ 
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SEQ 21 



752 






758 






759 


000000 




760 






761 






767 


000000 




768 




002000 


769 


002000 
002000 




770 






771 






772 






7/3 






774 






775 






7 76 






777 


0020CO 




778 


002000 
0020OO 






O020OO 


103 




002001 


132 




002CO2 


124 




002003 


113 




0020O4 


107 




00200j 


OOO 




O020O6 


000 




002007 


000 




002010 






002010 


101 




002011 






O02011 


060 




002012 






002012 


CKXXXH 




002014 






002014 


001217 




002016 






00203 6 


065460 




002020 






002020 


065620 




002022 






002022 


002124 




002024 






002024 


002134 




002026 






002026 


066026 




002050 






002030 


oooooo 




002032 






002032 


oooooo 




002034 






002034 


oooooo 




002036 






002036 


oooooo 




002040 






002040 


066012 




002042 






002042 


OOOOOO 



I INITIALIZE SUPERVISOR MACROS 



.SBTTL PROGRAM HEADER 

.MCALL SVC 

SVC 

.ENABLE LC 

.NLIST BEX.CNO 

.ENABL AMA.ABS 

. - 2000 

BGNMOD TUV2A 
TUV2A:: 

i »♦ 

j THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
I -- 



POINTER BGNSW,BCNSFT,BGNAU,BGNOU # BGNRPT,BGNSETUP 
HEADER CZTKG.A.0,655. .0 
L$NAME:s iDIAGNOSTIC NAME 





.ASCII 


/C/ 






.ASCII 


n/ 






.ASCII 


/j/ 






.ASCII 


'K/ 






.ASC T I 


a;/ 






.BYTE 


*. 






.BYTE 









• BYTE 







L$k£V;: 






REVISION LEVEL 




.ASCII 


/{/ 




LtDtP 






»o 




.ASCII 


/o/ 




LIUNIT: 






^NUMBER OF UNITS 




.WORD 


TIPTHV 




LtTIML: 






l LONGEST TEST TIME 




.WORD 


655. 




LIHPCP: 






jPOINTER TO H.W. QUES. 




.WORD 


LIHARD 




LISPCP: 






jPOINTER TO S.W. QUES. 




.WORD 


LIS0FT 




LIHPTP: 






|PTR. TO DEF. H.W. PTABLE 




.WORD 


LIHW 




LISPTP: 






tPTR. TO S.W. PTABLE 




.WORD 


LISW 




LILADP: 






iDIAG. END ADDRESS 




■ WORD 


LILAST 




LIS7A:: 






l RESERVED FOR APT STATS 




.WORD 







LICO: ; 










.WORD 







LIDTYP: 






< DIAGNOSTIC TYPE 




.WORD 







LIAPT: : 






j APT EXPANSION 




.WORD 







LtDTP: : 






,PTR. TO DISPATCH TABLE 




.U0RD 


LIDISPATCH 


L$PRIOj 






jDIAGNOSTIC RUN PRIORITY 




.WORD 


n 
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SEQ 22 



002044 
002044 
002046 
002046 
002050 
002050 
002051 
002052 
002052 
OO2054 
002056 
002056 
002060 
002060 
OO2062 
002062 
002064 
002064 
002066 
002066 
002070 
002070 
002072 
002072 
0O2074 
002074 
002076 
002076 
002100 
002100 
002102 
002102 
002104 
002104 
002106 
002106 
002110 
002110 
002112 
002112 
002114 
002114 
002116 
002116 
002120 
002120 



000000 

000000 

003 
003 

000000 
OOOOOO 

000000 

003334 

023066 

OOOOOO 

OOOOOO 

022560 

022656 

OOOOOO 

003342 

104035 

OOOOOO 

022000 

023040 

022764 

021770 

OOOOOO 

OOOOOO 

OOOOOO 



LIENVI 
LIEXP1 
LIMREV 

LIEF;: 

LISPC: 

LIDEVP 

LIREPP 

LIEXP4 

LIEXP5 

LIAUT 

LIDUT 

L$LUN 

LIDESP 

LILOAO 

LIETP 

LIICP 

LICCP 

LIACP 

LIPRT 

LITEST 

I. IDLY: 

lihxme 



.WORD 

■ WORD 

.BYTE 
.BYTE 

.WORD 
.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

EHT 

.WORD 

.WORD 

.WORD 

,W»WD 

.WORD 

.WORD 

.WORD 

.WORD 



;FLAGS DESCRIBE HOW IT WAS SETUP 
»EXPANSION WORD 







iSVC REV ANO EDIT * 
CIREVISION 
CIEDIT 

jDIAG. EVENT FLAGS 







LIDVTYP 

LIRPT 





LIAU 

LIDO 



LIDESC 

El LOAD 



LIINIT 

LICLF.AN 

LIAUTO 

L IPROT 









i POINTER TO DEVICE TYPE LIST 
jPTR. TO REPORT CODE 



jPTR. TO ADD UNIT COOE 

iPTR. TO DROP UNIT COOE 

jLUN FOR EXERCISERS TO FILL 

iPOINTER TO DIAG, DESCRIPTION 

iGENERATE SPECIAL AUTOLOAD EMT 

iPOINTER TO ERRTBL 

jPTR, TO INIT COOE 

jPTR. TO CLEANUP COOE 

jPTR. TO AUTO COOF 

iPTR. TO PROTECT TABLE 

I TEST NUMBER 

jDELAY COUNT 

jPTR, TO HIGH MEM 



CZTKGA TK-25 FRT END FUNC OS 
DEFAULT HARDWARE P- TABLE 



V80 

781 

782 

783 

784 

785 

786 

787 002122 
002122 
002124 
002124 

VJW 002124 

790 002126 

791 002130 

792 002132 
002132 
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SEQ 23 



000003 



172522 
000224 
000240 



.SBTTL DEFAULT HARDWARE P-TABLE 



THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 



LtHW:: 
DFPTBL.; 



BGNHW 
.WORD 



L 10000; 



.WORD 
.WORD 
.WORD 
ENDHW 



DFPTBL 
L10000-LiHW/2 



172522 

224 

PRI05 



^DEFAULT HARD-P-TABLE 



j 2ND (OF 2) REGISTERS 
i INTERRUPT VECTOR 
I INTERRUPT PRIORITY. 



KWfi3rJ K A 2 5*EFJ END FUNC * 3 

SOFTWARE P- TABLE 
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SEQ 24 



794 

795 

796 

797 

798 

799 

800 002132 
002132 
002134 
002134 

801 

802 002134 

805 002136 
804 

805 

806 002140 

807 00214? 

808 002144 
002144 

809 



,SBTTL SOFTWARE P-TABLE 



♦ ♦ 



i THE SOFTWARE P- TABLE CONTAINS THE VALUES OF THE PROGRAM 
5 PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 



I -- 



000004 



000000 
000000 



000031 
000310 



BGNSW 
.WORD 

LtSU:: 

SFPTBL: : 


SFPTBL 
LlOOOl- 


•LtSW/2 




TRANSTST:: 
NOITS:: 


.WORD 
.WORD 






j 
i 
i 


LERRMAX: : 
GERRMAX:: 

ENDSW 
LlOOOl: 


.WORD 
♦ WORD 


25. 

200. 


J 
1 
1 



j ENABLE RAM DUMP IF -1 

INHIBIT ITERA1I0N OPTION. 
... - ITERATE. 
. . .NZ - INHIBIT ITERATE. 
LOCAL CPER TEST) ERROR LIMIT 
GLOBAL (PER UNIT) ERROR LIMIT 



wn^mi end func * 3 



M2 
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SEQ 25 



812 
819 
824 
830 
831. 
832 
833 
834 
835 
836 
837 
838 
839 
843 002144 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
0000 10 
000004 
0O0002 
000001 

001OOO 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



000040 
000037 
000036 
00003b 
000034 



.SBTTL GLOBAL EQUATES SECTION 



.SBTTL GLOBAL EQUATES SECTION 



t +• 



THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
ARE USED IN MORE THAN ONE TEST, 



EQUALS 



j GET STANDARD EQUATES 



\ BIT OIFINITI 


BIT15-- 


• 100000 


BIT14-" 


■ 40000 


BIT13-- 


• 20000 


BIT12-- 


■ 10000 


BIT11-. 


• 4000 


BIT10-- 


■ 2000 


BIT09-- 


■ 1000 


BIT08-' 


■ 400 


BIT07-- 


■ 200 


BIT06-- 


• 100 


BIT05-- 


■ 40 


BIT04-- 


- 20 


BIT03- 


• 10 


BIT02- 


• 4 


BITC1- 


• 2 


BITOO" 


' 1 


BIT9-- 


BIT09 


BIT8-- 


BIT08 


BIT7-- 


BIT07 


BIT6-- 


BIT06 


BIT5-- 


BIT05 


BIT4-- 


BIT04 


BIT3-- 


BIT03 


BIT2-- 


BIT02 


BIT1-- 


BIT01 


BITO-- 


BITOO 



j EVENT FLAG DEFINITIONS 

; EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 



EF 


.START-- 


32 


EF 


.RESTART-- 


31 


EF 


.CONTINUE-- 


30 


EF 


.NEW-- 


29 


EF 

l 


.PWR-- 


28 



i START COflMANO UAS ISSUiD 

i RESTART COMMANO WAS ISSUED 

i CONTINUE COMMANO UAS ISSUED 

5 A NEW PASS HAS BEEN STARTED 

I A POWER-FAIL/POWER-UF OCCURRED 



PRIORITY LEVEL DEFINITIONS 



N2 



CZTKGA TK-25 FRT END FUNC *3 
GLOBAL EQUATES SECTION 

000340 
000300 
000240 
000200 
000140 
000100 
000040 
000000 



000004 
000010 
000020 
00OO40 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 
tt<>4 

845 002144 



000250 

177572 
177574 
177576 
178516 
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PRI07-- 340 






PRI06-- 300 






PRI05-- 240 






PRI04-- 200 






PRI03-- 140 






PRI02-- 100 






PRI01-- 40 






PRIOO"" 






j OPERATOR FLAG 


BITS 




EVL-- 4 






LOT-' 


10 






ADR-- 


20 






IDU-' 


40 






ISR-- 


100 






UAM-- 


200 






BOE-- 


400 






PNT-- 


1000 






PRI-> 


2000 






IXE-> 


4000 






I6E»« 


10000 






IER-" 


20000 






LOE-- 


40000 






HOE-- 100000 






KT11 


,♦ {DEFINE MEMORY MANAGEMENT REGISTERS 


.SBTTL MEMORY 


MANAGEMENT DEFINITIONS 




:*KTH VECTOR ADDRESS 




riMVFC- 250 






;*KI 11 STATUS REGISTER ADDRESSES 




SRO- 177572 






SRI- 177574 






SR2- 177576 






SR3- 172516 






.IF N6 






HUSER "I" PAGE 


DESCRIPTOR REGISTERS 




UIPDRO- 17 7600 






UIPDR1- 177602 






UIPDR2- 177604 






UIPDR3- 1776C6 






UIPDR4- 177610 






UIPDR5- 177612 






UIPDR6- 177614 






UIPDR7- 177616 






.IF N6 






j*USER "D" PAGE 


DESCRIPTOR REGISTO!- S 




UOPCRO- 17 7620 






U0PDR1- 177622 






U0PDR2- 177624 






U0PDR3- 17 7626 






IX)PDR4- 1 7 7630 






U0PDR5- 177632 






U0PDR6- 177634 






U0PDR7- 177636 






.ENCC 






i*USER "I" PAGE 


ADDRESS REGISTERS 





SEQ 26 
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SEQ 27 



UIPARO- 177640 

UIPAR1- 177642 

UIPAR2- 177644 

UIPAR3- 177646 

UIPAR4- 177650 

UIPAR5* 177652 

UIPAR6- 177654 

UIPAR7- 177656 

IF NB 

!*USER M D" PAGE ADDRESS REGISTERS 

UOPARO- 177660 

U0PAR1- 177662 

U0PAR2- 177664 

UUPAR3- 177666 

U0PAR4- 177670 

UOPftRS- 177672 

U0PAR6- 177674 

U0PAR7- 177676 
,ENDC 
.F.NDC 
.IF NB 

t *SUP€RVIS0R "I" PAGE DESCRIPTOR REGISTERS 

SIPORO- 172200 

SXP0R1- 172202 

SIP0R2- 172204 

SIP0R3- 172206 

SIP0R4- 172210 

SIPDR5- 172212 

SIP0R6- 172214 

SIP0R7- 172216 

IF f£3 
I •SUPERVISOR "D M PAGE DESCRIPTOR REGISTERS 

SOPORO- 172220 

SOPOR 1- 172222 

S0P0R2- 172224 

S0P0R3- 172226 

S0P0R4- 172230 

SCP0R5- 172232 

S0P0R6- 172234 

S0P0R7- 172236 

ENDC 
I ♦SUPERVISOR "I" PAGE ADDRESS REGISTERS 

SIPARO- 172240 

SIPAR1- 172242 

SIPAR2- 172244 

SIPAR3- 172246 

SIPAR4- 172250 

SIPAR5- 172252 

SIPAR6- 172254 

SIPAR7- 172256 

IF Nfi 

^SUPERVISOR "0" PAGE ADDRESS REGISTERS 

SOPARO- 172260 

SDRAR1- 172262 

SDPAR2- 172264 

SDPAR3- 172266 

S0PAR4* 1 722 70 



Wm ^Mhmj^fWh^ 



172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 



172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 
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SDPARS- 
SDP. .%• 


17227? 
172274 






SDPAR7" 


172£76 






.ENOC 








,ENDC 








» ♦KERNEL "I" PAGE 


DESCRIPTOR REGIST' 


KIPORO- 


172300 






KIPW1- 


172302 






KIP0R2- 


172304 






KIPDR3- 


172306 






KIP0R4- 


172310 






KIPDR5* 


172312 






KIP0R6- 


172314 






KIP0R7- 


172316 






,IF NB 








i 'KERNEL "D M PAGE 






DESCRIPTOR REGISTERS 




KDPORO- 


172320 






K0P0R1- 


172322 






KDP0R2- 


172324 






KDP0R3- 


172326 






K0P0R4- 


172330 






K0P0R5- 


172332 






KDP0R6- 


172334 






KDP0R7- 


172336 






.ENDC 








j 'KERNEL "I* PAGE 


ADDRESS 


REGISTERS 


KIPARO- 


172340 






KIPAR1- 


172342 






KIPAR2- 


172344 






KIPAR3* 


172346 






KIPAR4- 


172350 






KIPAR5- 


172352 






KIPAR6- 


172354 






KIPAR7- 


172356 






.IF NB 








I 'KERNEL M D M PAGE 


ADDRESS 


REGISTERS 


KDPMPO- 


172360 






KDPAR1- 


172362 






KDPAR2- 


172364 






K0PAP3- 


172366 






K0PAR4- 


172370 






K0PAR5- 


172372 






KDPAR6- 


172374 






KDPAR7» 


172376 






♦ ENDC 









SEQ 28 
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SEQ 29 



850 




851 




852 




853 




854 




855 




856 


000004 


857 


000060 


858 


177560 


859 


177562 


860 




861 




862 




863 




864 




865 


100000 


866 


040000 


867 


020000 


868 


010000 


869 


004000 


870 


002000 


871 


001400 


872 


000200 


873 


000100 


874 


000060 


875 


000016 


876 




877 




878 




879 




880 




881 




882 




883 




884 




885 


100000 


886 


040000 


887 


020000 


888 


010000 


889 


004000 


890 


002000 


891 


001000 


892 


O0O400 


893 


000200 


894 


000100 


895 


000040 


896 


000020 


897 


000010 


898 


000004 


699 


OOOO02 


900 


000001 


901 




902 




903 




904 




905 




906 





.SBTT'„ TK-25 REGISTER AND PACKET DEFINITIONS 



i SOME GENERAL EQUATES 

J 

ERRVEC-- 
TTIVEC-- 
TTICSR-- 
TTIBFR-- 

iBIT DEFINITIONS 



4 

60 

177560 
177562 



I P0XNH T i1 TO ERROR VECTOR FOR BUS TIME OUT 



I IN' 



'Oi\ 



!*>T VECTOR FOR CONSOLE INPUT 



i BOS A&OftESS Of CONSOLE INPUT 
I CONSOLE INPUT DATA BUFFER 



FOR TSSR REGISTER 



SO BIT15 

BIE- BIT14 

SCE- BIT13 

RMR- BIT12 

NXM- BIT11 

NBA- BIT10 

HIADOR- BIT9JBIT8 

SSR- BIT7 

OFL- BIT6 

FATERR- BIT4JBIT5 

TERCLS- BIT3!BIT2!BIT1 



I SPECIAL CONDITION 

I BUS INTERFACE ERRW 

I SANITY CHECK ERROR 

tMOOIFICATION REFUSED 

iNONEXISTANT MEMORY ERROR 

iNEEO BUFFER ADDRESS 

lEXTENDED AOORESS BITS 

j SUB SYSTEM READY 

lOFF LINE BIT 

i FATAL TERMINATION ERROR COOES 

I TERMINATION COOES 



BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 
CXSTO) 



XSOTMK- 


BIT15 




XSORLS- 


BIT14 




XSOLET- 


B1T13 




XSORLL- 


BIT12 




XSOWLE- 


BIT11 




XSONEF- 


BIT10 




XSOILC- 


BIT9 




XSOILA- 


BIT8 




XSOMOT- 


BIT? 




XSOONL- 


BIT6 




XSOIF.- 


BIT5 




XSOVCK- 


BIT4 




XSOPEO- 


BIT3 




XSOWLK- 


BIT2 




XS060T- 


BIT1 




XSOEOT- 


BITO 




iBIT DEFINITIONS 


FOR EXTENDED 


i(XSTl) 







I TAPE MARK DETECTED 

I RECORD LENGTH 5H0RT 

I LOGICAL ENO OF TAPE 

i RECORD LENGTH LONG 

lURITE LOCK ERROR 

iNON EXECUTABLE FUNCTION 

i ILLEGAL COMMAND 

l ILLEGAL AOORESS 

i TAPE IN MOTION 

i TRANSPORT ON LINE 

I INTERRUPT ENABLE 

j VOLUME CHECK BIT 

iPMASE ENCOOEO DRIVE 

iWRITE LOCKED 

iBEGINNING Of TAPE 

j ENO OF TAPE 



STATUS REGISTER 1 
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SEQ 30 



907 


100000 


908 


040000 


909 


020000 


910 


017375 


911 


000400 


912 


000002 


913 




914 




915 




916 




917 




918 


100000 


919 


040000 


920 


035400 


921 


002000 


922 


000200 


923 


000100 


924 


000077 


925 


000007 


926 




927 




928 




929 




930 




931 


177400 


932 


000200 


933 


000100 


934 


000040 


935 


000020 


936 


000010 


93 7 


000006 


938 


000001 


939 




940 




941 




942 




943 




944 


100000 


945 


040000 


946 


020000 


947 


017400 


948 


000377 


949 




950 




951 




952 




953 




954 




955 




956 




957 


000006 


958 


000006 


959 




960 




961 




962 




963 





BIT15 
BIT14 
BIT13 



lOATA LATE 
i NOT USED 



Xl.DLT 

XI, SPARE* Bill** |NUI UbtU 

XI. COR - BIT13 iCORRECTAQLE DATA ERROR 

Xl.MBZ » BIT12*BITU*BIT10*BIT9*BIT7*BIT6*BIT5*BIT4*BI 

X1,RBP - BITS iREAD BUS PARITY ERROR 

Xl.UNC " BIT1 .iwrnODPrTURi p nata no i 



a hHHDH 

__ BIT4*BIT3*BIY2*BITO jALWAYS 

(READ BUS PARITY ERROR 

I UNCORRECTABLE DATA OR HARD ERROR 



iBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2 
i(XST2) 



X2.0PM 

X2,RCE 

X2, SPARE 

X2.WCF 

X2.EXTF 

X2.BUFE 

X2.RcV 

X2.UNIT 

iBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3 
tCXST3) 



BIT15 jOPERATION IN PROGRESS (TAPE MOVING) 

BIT14 ,RAM CHECKSUM ERROR 

BIT13fBIT12*BITU*BIT9*BIT8 iNOT USED BY TK-25 (ALWAYS-O) 

BIT10 iWRITE CLOCK FAILURE CFIFO NOT EMPTIED BY TRANSPORT) 

BIT7 ,IF WRITE CHAR CMO THEN - EXTENDED FEATURES ENABLED 

BIT6 i IF WRITE CHAR CMO THEN - BUFFERING ENABLED 

000077 ,IF WRITE CHAR CMO THEN - MICROCOOE REVISION LEVEL 

BIT2*BIT1*BIT0 jIF GET STATUS THEN ■ CURRENTLY SELEr^o UNIT NO, 



l - 




X3,MDE ' 


' 177400 


X3.SPAHS' 


BIT7 


X3.0PI - 


■ BIT6 


X3.REV • 


• BITS 


X3.TRF ■ 


' BIT4 


X3.DCK - 


■ BIT3 


X3.MBZ ■ 


■BIT2*BIT1 


X3.RIB ■ 


• BITO 



iMICRO-DIAGNOSTIC ERROR CODE 

iNOT USED BY TK-25 

I OPERATION INCOMPLETE 

I REVERSE 

i TRANSPORT RESPONSE FAILURE 

iDENSITY CHECK 

iNOT USED ALWAYS 

iREVERSE INTO BOT 



iBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4 
iCXST4) 



BIT15 jHIGH SPEED 

BIT14 , RETRY COUNT EXCEEDED 

BIT13 i TRANSPORT SPECIAL MOOE 

BIT12*BIT11*BIT10*BIT9»BIV8 jNOT USED ALWAYS 
000377 j WRITE RETRY COUNT FIELD 



X4.HSP 
X4.RCE 
X4.TSM 
X4.M6Z 
X4.WRC 



t * 



iTSSR TERMINATION CODES (BIT 0-2) 
l 

i - 

TSREJ- 3*2 
UNREC- 6 



I » 



I COMMAND REJECTED 
l UNRECOVERABLE ERROR 



jOEVICE REGISTER OFFSETS 

i 



F3 



C2TKGA TK-25 FRT END RJNC *3 MACRO M1200 
TK-25 REGISTER AND PACKET DEFINITIONS 
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SEQ 31 



.64 



965 




966 


177776 


967 


177776 


968 


177776 


969 


177776 


970 


177777 


971 


177777 


972 


OOOOOO 


973 


000001 


974 




975 




976 




977 




978 


000003 


979 




980 




981 




982 




953 


000017 


984 


000013 


985 


0O0012 


986 


000011 


987 


000010 


938 


000006 


989 


000005 


990 


000004 


991 


000001 


992 




993 




994 




995 




996 


100000 


997 


040000 


998 


020OO0 


999 


010000 


1000 


007400 


1001 


000200 


1002 


000140 


1003 


000037 


1004 




1005 




1006 




1007 


OOOOOO 


1008 


CKXMOO 


1009 


ooiooo 


1010 


O020O0 


1011 


002400 


1012 




1013 




1014 




1015 




1016 


000167 


1017 


000200 


1018 


000020 


1019 


000027 


1020 


000104 



1 - 



TSBA-- 


-2 


TSBAL-- 


-2 


TSDB-- 


-2 


TSDBL-- 


-2 


TSBAH-- 


-1 


TSD8H-- 


-1 


TSSR-- 





TSSRH-- 


1 



I TSDB ADDRESS BIT DEFINITIONS 
A1716 - BIT1»BIT0 



J 



COMMAND DEFINITIONS 



P.GETSTAT 
P.INIT 
P. CONTROL 
P. FORMAT 
P. POSITION 
P.WRTSUB 
P. WRITE 
P.WRTCHAR 
P. RE AD 



17 

13 

12 

11 

10 

6 

5 

4 

1 



jTSDB/TSBA REGISTER 
iTSDB/TSBA REGISTER 

;TSD6/TSBA REGISTER HIGH BYTE 

iTSSR RF.GISTER 

iTSSR REGISTER HIGH BYTE 



(ADDRESS BITS 17:16 ARE IN 1(0 



(GET STATUS 

i INITIALIZE 

I CONTROL COMMANDS 

I FORMAT 

(POSITION 

(SUBSYSTEM WRITE 

iWRITE 

» WRITE CHARACTERISTICS 

I READ 



I ♦ 

i COMMAIV) 

J - 



PACKET HEADER WORD BIT DEFINITIONS 



P.ACK - LITIS 

P.CVC ■ 3IT14 

P.OPP - BIT13 

P.SWB ■ BIT12 

P.MOOE • BITU!BIT10!BIT9!BIT8 

P. IE - BIT7 

P.FMT- BIT6IBIT5 

P.CMD - 37 

j CONTROL COMMAND MODE CODES 



{BUFFER AVAIL FOR CONTROLLER 

I CLEAR VOLUME CHECK 

(REVERSE SEQUENCE Of DATA BITS 

iSUAP BYTES IN MEMORY 

(EXTENDED COhMANO MODE FIELD 

» INTERRUPT ENABLE 

(PACKET HEADER TYPE (ALWAYS"0) 

I MAJOR COMMAND FIELD 



PC. RELEASE 
PC. REWIND 
PC.NOOP 
PC.IEREW 
PC, ERASE 



- 0*256, 
■ 1*256. 
• 2*256. 

- 4*256. 

" 5*256. 



(RELEASE BUFFER 

(REWIND 

jNO-OP 

(REWIND IMMEDIATE 

(SECURITY ERASE 



INTERRUPT 



i CONTROLLER RAM DEFINITIONS 

RMCHBEG - 167 
RMCHENO • 200 
RMPKTBEG- 20 
RMPKTEND- 27 
RMMSGBEG- 104 



(CHARACTERISTICS 10 DATA BEGIN RAM ADDRESS 
(CHARACTERISTICS 10 DATA END RAM ADDRESS 
iCOMMANO PACKET BEGIN RAM ADDRESS 
(COMMAND PACKET END RAM ADDRESS 
(MESSAGE BUFFER BEGIN RAM ADDRESS 



G3 



CZTK&A TK-; 
TK-25 REGI? 


a?ER AnE PACKET 


1021 


000117 


1022 




1023 




1024 




1025 




1026 




1027 




1028 


000006 


1029 


000010 


1030 


000012 


1031 


000014 


1032 


000016 


1033 




1034 




1035 




1036 




1037 




1038 




1039 




1040 




1041 


000002 


1042 


00O0O4 


1043 


000006 


1044 




1045 


000010 


1046 




1047 




1048 




1049 




1050 


000000 


1051 


000001 


1052 


000002 


1053 


000004 


1054 




1055 




1056 




1057 




1058 


000000 


1059 


000001 


1060 


000002 


1061 


000003 


1062 


000004 


1063 


0OO005 


1064 


000006 


1065 


000007 


1066 


000010 


1067 


000011 


1068 


000020 


1069 


000021 


1070 


000022 


1071 


000023 


1072 


000024 


RTS 




1073 




1074 




1075 




1076 




1077 


000200 



*3 MACR< 

DEFINITION! 



M1200 20-APR-84 08:13 PAGE 27-3 



RMMSGEND- 117 



SEQ 32 



I MESSAGE BUFFER END RAM ADDRESS 



REGISTER DEFINITIONS IN THE MESSAGE BUFFER 



XSTO-- 


6 


XST1-- 


8. 


XST2-- 


10 


XST3-- 


12 


XST4-- 


14 



jEXTFNDED 
(EXTENDED 
(EXTENDED 
lEXTENOED 
» EXTENDED 



STATUS 
STATUS 
STATUS 
STATUS 
STATUS 



REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 





1 
2 
3 
4 



(WORD 
(WORD 
(WORD 
(WORD 
(WORD 



4) 
5) 
6) 
7) 
8) 



i ♦ 



{OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS 



t - 



PKLOW 
PKHI 
PKBCNT - 

EXBCNT-iO 



2 
4 
6 



iLOU ORDER CHARACTERISTIC DATA POINTER 
(HIGH ORDER CHARACTERISTIC DATA POINTER 
(NUMBER OF BYTES IN DATA PACKET 

^NUMBER OF BYTES IN EXTENDED DATA PACKET 



jDATA PACKET OFFSETS FOR WRITE SU6SYTEM COMMANO 



i - 



BSELO 
BSEL1 
SEL2 
SELDATA 





1 



tBYTE 
iBYTE I 
iWORD 2 
I WORD 3 



jBSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND 



l - 

PW.NOP 

PW. RDRAM 

PW.WTRAM 

PW.RFIFO 

PW.WFIFO 

PW.RDSTAT 

PW.WCTL 

PW.WFMT 

PW.WMISC 

PW.WNPR 

PW.D22 

PW.DU 

PW.D13 

PW.N013U 

PW.RDEXT 



J 





1 

2 

3 

4 

5 

6 

7 

10 

11 

20 

21 

22 

23 

24 



(NO-OP 

;READ RAM 

(WRITE RAM 

(READ FIFO 

(WRITE FIFO 

i READ STATUS 

l WRITE TAPE CONTROL 

iWRITE TAPE FORMAT 

I WRITE MISCELLANEOUS 

j WRITE NPR CONTROL 

I DO MICROTEST 22 

iDO MICROTEST 11 

jDO MICROTEST 13 

iDISABLE MICROTEST 11 AND 13 

jREAD EXT, TAPE STATUS (NOT SUPPORTED BY ALL TRANSPO 



tBSELl CODES FOR WRITE TAPE CONTROL 

- BIT7 



WC.IFAD 



jIFAD - FORMATTER ADDRESS 



H3 
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SEQ 33 



1078 


ooo too 


1079 


000040 


1080 


000020 


1081 


000010 


1082 


O0O0O4 


1083 


000002 


1084 


000001 


1085 




1086 




1087 




1088 




1089 


00020O 


1090 


000100 


1091 


000040 


1092 


00O020 


1093 


000010 


1094 


000004 


1095 


000002 


1096 


000001 


1097 




1098 




1099 




1100 




1101 




1102 


000200 


1103 


000020 


1104 


000010 


1105 


000006 


1106 


000001 


1107 




1108 




1109 




1110 


oooooo 


1111 


000002 


1112 


000OO4 


1113 


000006 


1114 




1115 




1116 




1117 


0O0200 


1118 


000100 


1119 


000040 


1120 


000020 


1121 




11^2 




1123 




1124 




1125 


000200 


1126 


000100 


1127 


000040 


1126 


000020 


1129 


000010 


1130 


000004 


1131 


000003 


1132 


10O000 


1133 


040000 


1134 


020000 



WC.IOTAD - BIT6 

WC.I1TAD - BIT5 

WC.I5RESV - BIT4 

WC.IREW - BIT3 

UC.IRUU - BIT2 

WC.IFEN - BIT1 

WC.IGO - BITO 

{BSEL1 CODES FOR WRITE FORMAT 



lITADO 

iITADl 

IIRESV5 

iIREW 

iIRWU 

jIFEN 

j GO 



TRANSPORT ADDRESS BIT 

TRANSPORT ADDRESS BIT 1 

RESERVED 05 

REWIND 

REWIND AND UNLOAD 

FORMATTER ENABLE 



WF.IHISP 

UF.IUPT 

WF.IRcV 

WF.IWFM 

Wf.IEDIT 

WF.IERASE 

WF.I3RESV 

WF.I4RESV 



I * 



BIT7 
BIT6 
BIT5 
BIT4 
BIT3 
BIT2 
BIT1 
BITO 



jIHISP 


- HIGH SPEED 


iIWRT 


- WRITE 


lIREV 


- REVERSE 


jIWFM 


- WRITE FILE MARK 


iIEDIT 


- EDIT 


jIERASE 


- ERASE 


jIRESV3 


- RESERVED 03 


IIRESV4 


- RESERVED 04 



iBSELl COOES FOR WRITE MISCELLANEOUS SUBCOMMAND 



MS. EXT 


- BIT7 


MS.RSFIFO 


■ BIT4 


flS.RSTAPE 


■ BITS 


MS. ATTN 


- BIT2JBIT1 


MS.RSD 


- BITO 



i INVERT SENSE OF EXTENDED FEATURES SWITCH 

iRESET FIFO AND INPUT PARITY ERRORR 

jRESET TAPE STATUS IN 2 FLIP-FLOPS 

i ATTENTION TRIGGER FIELD 

jRESET TIMER A.B THEN DELAY TIMES IN SEL2 



i ♦ 

i MS. ATTN SUBCODES 

MSA. NOP - 0*2 
MSA. VOL - 1*2 
MSA.NRAM- 2*2 
MSA.FRAM- 3*2 

I WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS 



iN0~0P (NOTHING TRIGGERED) 
iSIriULATE ON-LINE/OFF-LINE TRANSISTION 
:FORCE NON-FATAL RAM ERROR (FORCES ERRCOOE 
j FORCE FATAL RAM ERROR (CAUSES SCE TO SET) 



54) 



NP.IR - BIT7 

NP.OUT - BIT6 

NP.LOOP - BIT5 

NP.WRP « BIT4 

I ♦ 

I READ STATUS MESSAGE BUFFER BIT DEFINITIONS 

{ 



I INTERRUPT REQUEST (0-1 TRANSITION) 

j TAPE DATA DIRECTION OUT (0- IN) 

lENABLE TRANSPORT LOOPBACK 

jWRITE CORRECT PARITY CSET-0 TO WRITE WRONG) 



S2.DIM 

S2.ILW 

S2.0UTRDY 

S2.INRDY 

S2.ATIMR 

S2.BTIMR 

S2.UNDEF 

Sl.PARIN 

S1.I2RESV 

S1.I1RESV 



BIT7 

BIT6 

BIT5 

BIT4 

BIT3 

BIT2 

BI11»BIT0 

BIT15 

BIH4 

BIT13 



WORD 09 BYTE 2 



(UNDEFINED) 
WORD 08 BYTE 



DATA IN MISS 
ILW H 
OUT ROY H 
IN RDY H 
TIMER A FLAG H 
TIMER B FLAG H 

PARIN H 

IRESV2 

IRESV1 



CZTKGA TK-25 FRT END FUNC *3 MACRO M1200 
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SEQ 34 



1135 


010000 


1136 


004000 


1137 


002000 


1138 


001000 


1139 


00O400 


1140 


000200 


1141 


000100 


1142 


000040 


1143 


000020 


1144 


000010 


1145 


000004 


1146 


000002 


1147 


000001 


1148 




1149 




1150 


177560 


1151 


177562 


1152 


177564 


1153 


177566 


1154 


007776 


1155 




1156 




1157 




1158 


174400 


1159 


174402 


1160 


174404 


1161 


174406 


1162 




1163 




1164 




1165 




1166 




1167 




1168 




1169 




1170 


000004 


1171 


000006 


1172 


000010 


1173 


000014 


1174 


000016 


3175 




1176 




1177 




1178 




1179 




1180 




1181 


000001 


1182 


000013 


1183 


177730 


1184 


000006 


1185 


000177 


1186 


100200 


1187 




1188 




1189 




1190 




1191 


177560 



Sl.IEOT 

Sl.IIDENT 

Sl.ICER 

Sl.IFMK 

Sl.IHER 

50.ISPEED 

SO.IRDY 

SO.IONL 

SO.ILDP 

SO.IDBY 

SO.IRWO 

SO.IFBY 

SO.IFPT 



i 



BIT12 

BIT11 

BIT10 

BIT9 

BITS 

BIT7 

BIT6 

BIT5 

BIT4 

BIT3 

BIT2 

BIT1 

BITO 



IEOT L 
IIDENT H 
ICER H 
IFMK H 
IHER H 



SPECIAL KEYBORD STIFF FOR MOVER PROGRAM 



I WORD 08 BYTE ISPEED H 

I IRDY L 

i IONL L 

I ILDP L 

i IDBY L 

I IRWD L 

i IFBY L 

I IFPT L 



TKS 
TKB 
TPS 
TP8 
HIMEM 



■177560 
-177562 
-177564 
-177566 
-007776 



CONTROLLER DEFINITIONS 



CSR 
BAR 
DAR 
MPR 



-174400 
-174402 
-174404 
-174406 



CONTROLLER COMMANDS 



DLGETS 


•4 


SEEK 


-6 


DLRDHO 


-10 


READ 


-14 


DLRDNH 


-16 



READY 


-1 


DLSR 


-13 


DLERR 


•177730 


DLUN 


-6 


DLCYL 


-000177 


DLDNER 


-100200 



{KEYBOARD STATUS REGISTER 

j KEYBOARD DATA REGISTER 

I CONSOLE PRINTER STATUS REGISTER 

j CONSOLE PRINTER OAT A REGISTER 

I HIGH MEMORY MASK VALUE 



j STATUS AND CONTROL REGISTER 

iDL ADDRESS REGISTER 

I PLATTER ADDRESS 

j MULTIPURPOSE REGISTER 



jGET STATUS COMMANO 

{SEEK TRACK AND HEAD SELECT 

{READ SECTOR HEADER 

jREAD COMMANO 

I READ SECTOR NO HEADER CHECK 



TTICSR 



17756C 



i DRIVE READY BIT IN STATUS REG> 

{STATUS ANO RESET 

{MASK FOR COVER OPEN 

jHE.ADS UNLUADEO 

{MASK FOR CYLINDER ADDRESS 

{DONE SET OR ERROR SET BITS 



{KEYBOARD INPUT STATUS 



J3 



CZTKGA TK-25 FRT END FUNC 03 MACRO M1200 
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SEQ 35 



1192 


177562 


1193 


177564 


1194 


177566 


1195 





TTIBFR 

TTOCSH 
TTOBFR 



177562 
177564 
177566 



tKEYOOARO DATA REGISTER 
iCONSOLE PRINTER STATUS REGISTER 
IC0N50LE PRINTER DATA REGISTER 



CZTKGA TK-25 FRT END F'JNC 03 
SPECIAL MACROS AND OPDEFS. 

1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1 220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 



i<3 
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SEQ 36 



.SBTTL SPECIAL MACROS AND OPDEFS. 



SAVE GENERAL REGS 1 TC 5 



.MACRO SAVREG 
JSR R5.REGSAV 
.ENDM 



i * 



; 



MACRO TO FORCE AN ERROR 

FORCERROR TAG.NOTSSR 



MACRO 

NLIST 

IIF NDF LISTALL, .NLIST 

LIST 

IF B N0T5SR 

MOV TSSR(R5),R1 
ENOC 

MOV FORCER. FORCER 

BNE TAG 
NLIST 

IIF NOF LISTALL, .LIST 
LIST 
ENOM 



jREAD TSSR 

j IS FORCER SET? CLEAVE C BIT Al.ONH) 
;BR IF YES 



ilACRQ TO FORCE AN EXIT TO AVOID SECTION ITERATIONS 
WILL EXIT TO A LABEL IF FORCER IS NEGATIVE 
SO TO FORCE ERRORS ANO EXIT ON 1 ERROR SET 
FORCER TO 177777 
TO FORCE ERRORS AND ITERATIONS SET FORCER TO I. 

MACRO FORCEXIT TAG 

NLIST 

IIF NOF LISTALL, .NLIST 

LIST 

MOV FORCER .FORCER 

OMI TAG 
NLIST 

IIF NOF LISTALL, .LIST 
LIST 
ENOM 
* 

MACRO TO INCREMENT ERROR COUNTS 



sIS FORCER NEGATIVE? 
j BR IF YES 



J 



.MACHO 


NLXT.ERRNO 


.NLTSl 




III. II*' 


NOF LISTALL, .NLIST 




ERRN0-ERRN0«1 


III. IIF 


NOF LISTALL, .LIST 


.LIST 




. ENDM 





i ♦ 



L3 



CZTKGA TK-25 FRT END FUNC 03 
SPECIAL MACROS AND OPDEFS. 



1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
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SEQ 37 



{MACRO TO PERFORM XOR 



.MACRO 


XOR 


MOV 


A. -C5P) 


BIC 


B,(SP) 


BIC 


A,B 


BI5 


CSP)*.B 


. ENDM 





A.B 



000000 



EN-0 ; 

.SBTTL FORCER - FORCE ERROR FLAG 



INITIALIZE ERROR NUMBER 



THE FOLLOWING LOCATIONS MAY BE PATCHED BY THE USER 
TO OBTAIN THE RESULTS DESCRIBED FOR EACH, 



5 



002144 000000 



FORCER? i 



j FORCE TYPE ALL HARD ERRORS (THE ONES CALLED 
i - BY THE MACRO "IFERROR"). AN ERROR NEED NOT - 
j - EXIST, JUST ASSUME AND TYPE THE MESSAGE. 



GLOBAL DAT^ SEC 


JiSP F 


1279 






1280 






1281 






1282 






1283 






1284 






1285 






1286 






1287 






1288 






1269 






1290 


002146 


000000 


1291 


002150 


000000 


1292 


002152 


oooooo 


1293 


002154 


000000 


1294 


002156 


000224 


1295 


002160 


000200 


1296 


002162 


OOOOOO 


1297 


002164 


oooooo 


1298 


002166 


oooooo 


1299 


002170 


oooooo 


1300 


002172 


oooooo 


1301 


002174 


oooooo 


1302 


002176 


oooooo 


1303 


002200 


oooooo 


1304 


002202 


oooooo 


1305 


002204 


oooooo 


1306 


002206 




1307 


002246 


oooooo 


1308 


002250 


oooooo 


1309 


002252 


oooooo 


1310 


002254 


oooooo 


1311 


002256 


oooooo 


1312 


002260 


oooooo 


1313 


002262 


oooooo 


1314 


002264 


oooooo 


1315 


002266 




1316 


002432 




1317 


002576 




1318 


002716 


oooooo 
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SEQ 38 



.SBTTL GLOBAL DATA SECTION 



♦ ♦ 



• THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
5 IN MORE THAN ONE TEST. 



j THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME. 
{SINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P -TABLE 



EPRTSW: : 

UNITNj : 

QVP:: 

CSRADDR: : 

IVEC: : 

IPRI:: 

TSTCNT; 

LOOPCNT 

DEVCNT; 

FATFLG: 

INTRECV 

BENBSW; 

EXPO: 

RECV: 

ERRHI 

ERRLO 

RAMOATA; : 

RAMSIZ:: 

RCVHIADD; : 

RCVLOADD: : 

COUNT : : 

DATA:: 

TSTFLAG: : 

TSTPTR 

PRMNO: 

EXPMSG 

RECMSG 

TMPBFR 

MESBFA 



WORD 





WORD 





WORD 





WORD 





WORD 


224 


WORD 


PRI04 


WORD 





WORD 





WORD 





WORD 





WORD 





WORD 





WORD 





WORD 





WORD 





WORD 





BLKW 


16. 


WORD 





WORO 





WORO 





WORD 





WORD 





WORD 





WORD 





WORD 





BLKB 


100. 


BLKB 


100. 


BLKB 


80* 


WORD 






{PRINT SWITCH 

j UNIT * UNDER TEST. 

; QUICK VERIFY FLAG. 

j ADDRESS OF CSR FOR CURRENT DEVICE 

j INTERRUPT VECTOR 

j INTERRUPT PRIORITY. 

j NUMBER OF TESTS RUN IN THIS PASS 

j REMAINING ITERATION COUNT FOR TEST 

j NUMBER OF DEVICE UNDER TEST 

j SET IF FATAL ERROR IS DETECTED IN TEST 

j SET IF TAPE INTERRUPT WAS RECEIVED 

; BUFFER ENABLE SWITCH SW 0-OFF;1»ON 

j EXPECTED RAM DATA FOR PRAMPKT ROUTINE 

j RECEIVED RAM DATA FOR PRAMPKT ROUTINE 

j HIGH ADDRESS MEMORY ERROR 

j LOW ADDRESS MEMORY ERROR 

j DATA READ FROM RAM PACKET OR MESSAGE BUF AREA 

jRAM DATA SIZE FOR PRAMPKT ROUTINE 

» RECEIVED BUFFER HIGH ADDRESS 

; RECEIVED BUFFER LOW ADDRESS 

j TEST COUNT PATTERN 

j TEST DATA 

{TEST FLAG WORD 

{TSTBLK POINTER 

{PRINT ROUTINE TEMP 

{EXPECTED MESSAGE BUFFER DATA 

j DECEIVED MESSAGE BUFFER DATA 

{TEMPORARY STORAGE FOR PRINT 

{STORES ADDRESS OF MESSAGE BUFFER FOR ERR PRT 



CZTKGA TK-25 KRT END FUNC 03 
TSTBLK - TEST DATA TABLE 
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SEQ 39 



1320 






1321 






1722 






lo23 






1324 






1325 






1326 






1327 






1328 






1329 






1330 






1331 






1332 






1333 






1334 






1335 






1336 


002720 




1337 


002720 


OOOOOO 


1338 


002722 


177777 


1339 


002724 


0OOO01 


1340 


002726 


000002 


1341 


002730 


000004 


1342 


002732 


OOOOIO 


1343 


002734 


000020 


1344 


002736 


000040 


1345 


002740 


000100 


1346 


002742 


000200 


1347 


002744 


000400 


1348 


002746 


001000 


1349 


002750 


002000 


1350 


002752 


0O4000 


1351 


002754 


010000 


1352 


002756 


020000 


1353 


002760 


040000 


13S4 


002762 


10OOO0 


1355 


002764 


177776 


1356 


002766 


177775 


1357 


002 770 


177773 


1358 


002772 


177767 


1359 


002774 


177757 


1360 


002776 


177737 


1361 


003000 


177677 


1362 


003002 


177577 


1363 


003004 


177377 


l?r,4 


003006 


176777 


13ti'i 


003010 


175777 


1366 


003012 


173777 


1367 


003014 


167777 


1368 


003016 


157777 


1369 


003020 


137777 


1370 


003022 


077777 


1371 


003024 


125252 


1372 


003026 


052525 


1373 




003030 



.SBTTL TSTBLK - TEST DATA TABLE 

THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS 

IN SEQUENCE THE DATA IS: 

ALL ZEROS 

ALL ONES 

WALKING ONES 

WALKING ZEROS 

ALTERNATING ONES AND ZEROS 



} - 



TSTBLK: 



TBLtND' 



WORD 





.WORD 


177777 


.WORD 


BITO 


.WORD 


BIT1 


.WORD 


BIT2 


.WORD 


BIT3 


.WORD 


BIT4 


.WORD 


BITS 


.WORD 


BIT6 


.WORD 


BIT7 


.WORD 


BIT8 


.WORD 


BIT9 


.WORD 


BIT10 


.WORD 


BIT11 


.WORD 


BIT12 


.WORD 


BIT13 


.WORD 


BIT14 


.WORD 


BIT15 


.WORD 


tCBITO 


.WORD 


tCBITl 


.WORD 


tCBIT2 


.WORD 


tCBITS 


.WORD 


tCBIT4 


.WORD 


tCBITS 


.WORD 


tCBIT6 


.WORD 


tCBIT? 


.WORD 


tCBIT8 


.WORD 


tCBIT9 


. Lcno 


tCBTUO 


.WORD 


tCBITll 


.WORD 


♦CBIT12 


.WORD 


tCBIT13 


.WORD 


tCBIT14 


.WORD 


'CBIU5 


.WORD 


125252 


.WORD 


052525 



I ALL ZEROS 

jALL ONES 

I DATA FOR WALKIWG ONES 



{DATA FOR WALKING ZEROS 



^ALTERNATING ONES, ZEROS 

jALTERNATING ONES, ZERO OPPOSITE FROM ABOVE 



CZTKGA TK-25 FRT ENO FUNC #3 
GLOBAL ENVIRONMENT STORAGE 

1375 
1376 
1377 
1376 

1379 003030 

1380 003040 
1381 
1M2 
1383 

1384 003060 
1385 

1386 003062 
1387 

1388 003064 

1389 003066 

1390 003070 

1391 003072 

1392 003074 

1393 003076 

1394 003100 
1395 
1396 

1397 003102 
1396 003104 

1399 003106 

1400 003110 

1401 0O3U2 

1402 003114 

1403 003116 

1404 003116 

1405 003120 

1406 003122 

1407 003124 

1408 003126 

1409 003130 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 

1419 003130 

1420 003330 000000 
1421 

1422 003332 000000 
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SEQ 40 



000000 100000 
000000 000000 



000000 

000000 

000000 
000000 
000000 
000000 
000000 
000000 
000000 



000000 
OO2000 
000000 
000000 
000000 
000000 

000000 
000000 
000000 
000000 

177777 



000000 

000000 



.SBTTL GLOBAL ENVIRONMENT STORAGE 



l STORAGE FOR DEVICE REGISTERS 



DUMMY: 

DUFLGn 
NOOEVm 

TEMPI: i 

TEHP2ti 

XXCOMMm 

FREE j : 

FRESIZu 

FREEMIj 

KTFLGii 



KTENABLEi : 

PST32WM 

SIFLAGm 

BAOOATm 

GOOAT:: 

LOOPFL: j 

CTPB:: 

CTriBMst 



CTABE:} 



0.100000,0,0 
0,0,0, 0,0, 0,0,o 



.WORD 

.WORD 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORO 
.WORD 

.WORD 
.WORO 
.WORD 
.WORD 
.WORD 
.WORO 

.WORD 
.WORO 
.WORO 
.WORO 
.WORO 



















2000 














-1 



DUMMY DEVICE REGISTERS... 
...FOR MULTI-LNIT CHECKOUT. 



"DROPPED UNIT" FLAG. 
INHIBITS COOE IN "CLEAN-UP". 
FLAG TO SAY NO DEVICE. 

SOME TEMP LOCATIONS. 

XXDP* COMM BLOCK POINTER. 
1ST f*EE MEMORY ADORE SS. , . 
...AND SIZE (IN WORDS). 
LAST WORO IN FREE SPACE 
KT11. MEM AVAIL FLAG - 

- .WORO ■ <24K OR NO KT - 

- NZ ■ >24K AM) KT. 

SET BY TEST ROUTINES TO FLAG >28K UNDER TEST 
32W BLOCK AOORESS FOR 32K START 

ACTUAL DATA 
EXPECTED DATA 

CONFIGURATION TABLES. 
CONFIG WORK. 



lEND OF MEM TABLE. 



ERROR STATISTICS TABLE (1 WORJ PER UNIT). 64 UNITS MAX: 





100000 

10XXXX 

160000 

160001 

14XXXX 



UNIT NOT TESTED 

UNIT ONLINE, NO ERRORS 

UNIT ONLINE. ENCOUNTERED XXXX ERRORS 

IWIT DROPPED, NON-EXIOTENT DEVICE REGISTER 

UNIT DROPPED. NOT IDLE AT START 

WIT DROPPED, ENCOUNTERED XXXX ERRORS 



ERTABL: 
ERTABEt 



.BLKU 

.WORD 



64, 




SKXPTt *woao 



ti«SKIP SUBTEST O-NQ SKIP Of SUBTEST 



CZTKGA TK-25 FRT ENO FUNC 05 
GLOBAL TEXT MESSAGES 



1424 
1425 
1426 
1427 
1428 
1429 
1450 
1451 
1452 
1455 
1454 
1455 
1456 
1457 



MACRO M1200 



I ♦♦ 



005554 
005554 
003554 



1458 

1459 

1440 

1441 

1442 005542 
005542 
003342 



1443 
1444 
1445 
1446 
1447 
1446 
1449 
1450 
1451 
1452 
1455 
1454 
1455 
1456 
145" 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1466 
1469 
1470 
1471 
1472 
1475 
1474 



124 



113 



055 



003400 
003420 
003440 
003443 
003447 
003453 
003457 
003463 
003467 
003474 
003501 
003505 
003511 
003516 
003525 
003530 
003555 
003542 

005550 
003605 
003636 
003675 
003716 
005756 
004011, 

004021 



103 



132 



124 



003440 
003501 
123 
102 
123 
122 
116 
116 
102 
102 
123 
117 
102 
102 
102 
102 
102 
102 

124 
124 
040 
045 
045 
045 
045 
040 



003443 
003505 
103 
HI 
103 
115 
130 
102 
111 
111 
125 
106 
111 
111 
111 
111 
ill 
111 

123 
123 
040 

101 
101 
101 
116 
040 



003447 
003511 
000 
105 
105 
122 
115 
101 
It 4 
124 
122 
114 
124 
124 
124 
124 
124 
124 

125 
125 
116 
040 
040 
040 
045 
125 
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SEQ 41 



t THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
t MESSAGES, ANO ASCII INFORMATION THAT ARE USED IN 
I MORE THAN ONE TEST, 

J -■ 



I ♦ 

iNAMES OT DEVICES SUPPORTED 

DEVTYP <TK-25> 
L$DVTYP:: 

.ASCIZ /TK-25/ 
.EVEN 

I TEST DESCRIPTION 

DESCRIPT <CZTKGA TK-25 FRT ENO FUNC #3> 
LIDESC:: 

.ASCI? /CZTKGA TK-25 FRT ENO FUNC 03/ 
.EVEN 

I ♦ 

iBIT TO ASCII CONVERSION FOrt TSSR REGISTER 

i - 



11,21, 31, 41, 51, 61. 71, 61 

9$, 10*, 11$, 12$, 15$, 14*. 151, 161 



TSSRBIT:: .WORD 

.WORO 

1$: .ASCIZ 'SC 

2$: .ASCIZ 'BIE' 

5$; .ASCIZ 'SCE' 

4$; .ASCIZ 'RMR' 

5$: .ASCIZ «NXM' 

6$: .ASCIZ 'NBA' 

7$: .ASCIZ 'BIT9' 

6$: .ASCIZ 'BITS' 

9$: .ASCIZ 'SSR* 

101: .ASCIZ »OFL' 

11$: .ASCIZ 'BIT5' 

12$: .ASCIZ 'BIT4' 

13$: .ASCIZ 'BIT3' 

14$: .ASCIZ 'BIT2* 

15$: .ASCIZ 'BIT! 1 

16$: .ASCIZ 'BITO' 

.EVEN 

SFIERR: .ASCIZ 'TSSR ERROR AFTER SOFT INIT' 

SFHERR: .ASCIZ 'TSSR ERROR AFTER BUS RESET' 

NXR : .ASCIZ / NON-EXISTANT DEVICE REGISTER/ 

NXRX: .ASCIZ /#A ADORESS: *06/ 

TSSX: .ASCII /*A TSBA.TSSR EXP'Dj *06* A . *06*N/ 

.ASCIZ /#A TSBA.TSSR REC'D* *06#A f «Q6/ 

FUSIt .ASCII /#N*A/ 

USX; ♦ASCIZ / UNEXPECTED INTERRUPT/ 
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SEQ 42 



1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
14C7 
1488 
148^ 
1490 
1491 
149? 
1493 
1494 
1495 
1496 
1497 



004050 
004113 
00*117 
004154 
004176 
004233 
004305 
004 355 

0O4425 
004426 
004431 
0O4465 
004541 
004643 
004711 
004 754 
005011 
005104 



040 
045 
040 
0^0 
045 
040 
040 
040 

000 
045 
045 
045 

045 
122 
040 
127 
124 
124 



040 
116 
040 
040 
101 
040 
040 
040 



116 
101 
116 
101 
101 
040 
122 
123 
123 



111 NSI: ♦ ASCIZ / INTERRUPT EXPECTED, NOT RECEIVED/ 

0A5 FNOINTR: . ASCII /#N#A/ 

116 NOINTR: .ASCIZ / NO INTERRUPT WAS GENERATED/ 

111 IFAULT: .ASCIZ / INTERRUPT FAULT/ 

040 INTX: .ASCIZ /#A CW.J PCi #06#A TSBAi #06/ 

042 NOINIT: .ASCIZ / "BUS INIT" DIDN'T INITIALIZE CONTROLLER/ 

042 NSINIT: .ASCIZ / "SOFT-INIT" DION' T INITIALIZE THE DPU/ 

042 BRINIT: .ASCIZ / "BUS-RESET" DIDN'T INITIALIZE THE DPU/ 

NU : , ASCIZ // 

000 NUL.CR: .ASCIZ /#N/ 

040 EXPGOTj .ASCIZ /#A EXP'Ot #06#A t REC'D: #06/ 

045 EXPGT2: . ASCIZ /#N#A EXP'O: #06#A. #06#N#A REC'D: #0#A, #06/ 

040 DUAD12; .ASCIZ /#A REG(W) WRITTEN TO: #06#A REG(R) READ, EXP'Dj #06#A, REC'D: #06/ 

115 PKTRAM:: .ASCIZ * RAM Content* Do Not Match Packat Sant* 

103 SCME: .ASCIZ / CONFIG DOESN'T MATCH MFG. MASTER/ 

111 WRTMSGj .ASCIZ 'WRITE CHARACTERISTICS Fallad' 

123 k*TERR: .ASCIZ ' TSSR Incorract Aftar WRITE Command, Mora Bit* S«t Than 5SR' 

123 RDERR: .ASCIZ ' TSSR Incorrect Aftar READ Co*mmnd t Mora Bita Sat Than SSR' 
.EVEN 



CZTKGA 1 


N<-?3 FRT ENO KUNC *3 


GLOBAL ERROR REPORT SECTION 


1499 








150C 








1501 








1502 








1505 








1504 








1505 








1506 








3 507 


00517fa 
005176 






1508 


005176 








005176 


013746 


003062 




00f>2(;2 


012746 


003675 




<:0h»?05 


012746 


000002 




005? 12 


010600 






005214 


104415 






005216 


062706 


000006 


1509 


005222 


004737 


005230 


1510 


005226 

005226 








005226 


104423 




1511 








151? 








151? 








1514 








1515 








1516 








IS 17 


00S250 


005727 




is? a 


005222 


OOOOOO 




1519 


003234 


001402 




1520 


005;>36 


004777 


177770 


1521 


0C5242 








005242 


012746 


004426 




005246 


012746 


000001 




005252 


010600 






005254 


104415 






005256 


062706 


000004 


1522 


005262 


000207 
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.SBTTL GLOBAL ERROR REPORT SECTION 



SEQ 43 



l THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX 

i CALLS THAT ARE USED IN MORE THAN ONE TEST. 

j ASCII TEXT STRINGS ARE FOUNO IN THE GLOBAL TEXT SECTION. 

I -- 



NXRERR: 



BGNHSG NXRERR 



PRINTX 


♦NXRX.NOOEV 


MOV 


NOOEV.-(SP) 


MCV 


#NXRX,-(SP) 


MOV 


♦2,-CSP) 


MOV 


SP.RO 


TRAP 


CIPNTX 


ADO 


♦6.SP 


JSR 


PC .EXTEND 


ENDMS& 




L10002: 





iNON-EXISTANT DEVICE REGISTER. 
jNODEV • NEXM ADDRESS. 



I PRINT EXTENSION IF REQUIRED. 



TRAP 



CIMSG 



i THIS ROUTINE APPEN05 A UNIQUE EXTENSION (IF REQUIRED) 
i TO ANY OF TH£ ABOVE ERRW SIGNATURES. 



EXTEND: TST 
EXTAj 



1$: 



BEQ 

JSR 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADO 

RTS 



(PC)* 

II 

PC.BEXTA 

♦fWLCR 

♦NULCR.-(SP) 

♦l.-CSP) 

SP.RO 

CIPNTX 

*4,SP 

PC 



j - NO EXTENSION. 

j APPEND EXTENSION TEXT. 
i PRINT A BLANK LINE 



C7TKC-A TK-25 FRT ENO FUNC 03 
PRITSSR - PRINT TSSR CONTENTS 

3.525 

?.526 

15 J 7 
1526 
1529 

.1*530 
1551 
.1532 

1334 

1545 

15;<6 
1337 

153\rf 

1.540 
1.541 

1542 
154:< 
1^4 

It*46 
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SEQ 44 



15»i0 



\5'v 

i'iS?. 
J '. j* 

!.**:* 

!.56\ 

lS-.irf 
156-1 

] 5*i:s 

l*t-7 
1560 



( 052C* 
005264 
005270 
C05272 
005272 
005274 
005*00 
00530* 
005306 
005310 
005314 
003316 

»>o:?3;-!2 

0:o;V,4 
0053*0 

OJSMO 

yO'.'^O 
t r-^r. "J64 

0*V:37O 

00v<7^ 

(.'■'\;.<74 

O0' ; ?:76 
CK54O0 
0O r »40.3 
0!;5^04 
GOV,! 2 

oo^ ■*■ ;.4 
c.):;;".'.c 

CV.-20 
005434 



010104 

010446 
012746 
012746 
010600 
104414 
062706 
010400 
004737 
103410 

012746 
012746 

010600 
104415 
062706 
010403 
042703 
0014:54 
012702 
012701 
005703 
001413 
000241 
0O6103 
103006 
011100 
li2022 
001376 
112762 
005721 
0O0763 
105042 

012746 
012746 



.SBTTL PRITSSR - PRINT TSSR CONTENTS 

♦ 

ROUTINE TO DISPLAY THE CONTENTS, AND BIT DEFINITIONS, OF 
THE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLY 
BY A MESSAGE PRINTING ROUTINE 

INPUTS: 

Rl CONTENTS OF TSSR 
SUBORDINATE ROUTINES: 

CHKAM6 CHECK FOR AMBIGUOUS CONTENTS 



006123 
000002 



0O00O6 
016730 



006343 
000001 



000004 

001476 

002576 
003400 



000054 177777 



002576 
006314 



PRITSSR 


• 
'sAVREG 






MOV 


R1.R4 




PRINTB 


♦TSSRF0R.R4 




MOV 


R4.-CSP) 




MOV 


♦TSSRFOR.-(SP) 




MOV 


#2,-CSP) 




MOV 


SP.RO 




TRAP 


C$PNTB 




ADD 


♦6.SP 




MOV 


R4,R0 




JSR 


PC.CHKAM8 




BCS 


51 




PRINTX 


♦AMBTSSR 




MOV 


♦AMBTSS*,-(SP) 




MOV 


♦1,-CSP) 




MOV 


SP.RO 




TRAP 


CIPNTX 




ADD 


*4,SP 


5$: 


MOV 


R4.R3 




BIC 


♦HI ADDR » F ATERR • TERCLS 




BEQ 


20$ 




MOV 


♦TMPBFR.R2 




MOV 


♦TSSRBIT,R1 


10$: 


TST 


R3 




BEQ 


15$ 




CLC 






ROL 


R3 




BCC 


13$ 




MOV 


(Rl).RO 


lilt 


MOVB 


CR0)».(R2)* 




BNE 


11$ 




MOVB 


♦ ' ,,-l(R2) 


13$: 


TST 


CR1)» 




BR 


10$ 


15$: 


CLRB 


-CR2) 




PRINTX 


♦TSSDEF.OTMPBFR 




MOV 


OTMPBFR, -CSP) 




MOV 


*TSSDEF»-(SP) 



I SAVE GENERAL REGISTERS 
:SAVE THE TSSR CONTENTS 
t PRINT THE CONTENTS OF TSSR 



iCET TSSR BACK FOR CHKAMB 
i ARE CONTENTS AMBIGUOUS ? 
i BRANCH IF NOT 
j SHOW CONTENTS ARE AMBIGUOUS 



^CONTENTS OF TSSR 
,R3 | CLEAR ALL MULTIPLE BIT FIELDS 
I NO BITS APE SET 
l TEMPORARY ASCII BUFFER 
I ASCII EQUIVALENT 0* BITS 
iREMAINING BITS TO CONVERT 
I BRANCH WHEN ALL ARE DONE 
iCLEAR CARRY FOR SHIFT 
iSHIFT NEXT BIT TO CARRY 
I BRANCH IF BIT NOT SET 
jPOINTER TO BIT DEFINITION 
tMOVE ASCIZ TO BUFFER 
iMOVE ALL BITS 

I INSERT A COMMA TO TERMINATE 
iPOINT TO NEXT DESCRIPTION 
,GET THE REMAINING BITS 
i TERMINATE THE LINE 
jPRINT THE BIT DEFINITIONS 



CZTKGA TK-2h :'Rf ENO FUNC 43 
PRITSSR - f>wVM TSSR CONTENTS 
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SEQ 45 



1569 
1570 
1571 
1572 
1573 



1574 
1575 
1576 
157 7 
1576 
1579 
1580 
1581 



156? 
1533 
1594 
1585 
1586 



15S7 
1508 
1589 
1590 
1591 
1592 
.159 > 
1594 



3 505 
3 596 
159.' 
159^ 



005f' '-it 
00"-i«'..fj 

oov' ■;) 

005 ■:-, 

005<< TO 
0054 '.'«£ 

oo5*» ; i 
oossoa 

oo5r,«/i? 

005505 
0055, SO 

0O5i:.-? 

005?-. f' 
OObV, ; 

oos:.:!" 

0(o r \ H 

005!-- ".■■:■ 
oow»4 
oor> ■- ; ;-. 

005 -;;0 
OvSS'i.J 

oosr.: 3<! 

005 5!>! 

0C3V :>u 

005?:-? 

OO'i:. r .? 
005 r -:»-» 

005 '-■-;:-. 

C05:'..'S 
oo5h.y> 

0(W^ 

oor-f-r i 
oo>v 

005*'; :o 

00 '■','■-> ■■■ 
»'iV''. ".,. 
0\.*jt .■■' % 

WS- < :■ 

oosi* -: 
00:>c 
oo r 

0<r"; V> 

00 5 ^ j.> 

005.' /,;.' 
ocr-f- i\.i 

00!ft7£ 



.'(» 

o 



012746 
010600 
104415 
062706 

010403 
042703 

016303 

010346 
012746 
012746 
010600 
104415 
062706 
010403 
042703 
001421 
006203 
006203 
006203 
016303 

010346 
012746 
012746 
010600 
104415 
062706 
012737 
01O403 
042703 
001411 

0V0346 
012746 
012746 
010600 
104415 
062706 
022704 
001003 
012737 
005737 
0( Y r003 
ui*?/37 
013737 

012746 
012746 

010600 
104414 
062706 
012737 
000207 

045 



000002 
000006 



177761 
006404 



006204 
000002 



000006 
177717 

006744 



006245 

000002 



000006 
000031 

176377 



006143 
000002 



000006 
100210 

006032 
002146 

005672 
002146 

005672 
000001 



000004 
005672 



llo 



002170 



002146 



002146 
005644 



002146 
045 



MOV 42,-CSP) 

MOV SP.RO 

TRAP CIPNTX 

ADD 46. SP 

20* j MOV R4.R3 

BIC 4tCTERCLS.R3 

MOV TCOCOOCR3),R3 

PRINTX 4TC0ASC.R3 

MOV R3.-C5P) 

MOV 4TC0ASC.-CSP) 

MOV 42.-CSP) 

MOV SP.RO 

TRAP C$PNTX 

ADD 46 , SP 

MOV R4.R3 

BIC 4tCFATERR,R3 

BEQ 25$ 

ASR R3 

ASR R3 

ASR R3 

MCV TSFCOO(R3),R3 

PRINTX 4TFCASC.R3 

MOV R3.-CSP) 

MOV 4TFCASC.-CSP) 

MOV 42.-CSP) 

MOV SP.RO 

TRAP CIPNTX 

ADO 46 . SP 

MOV 425..FATFLG 

25$: MOV R4.R3 

BIC 4TCHIADDR.R3 

BEQ 301 

PRINTX 4TEXASC.R3 

MOV R3.-CSP) 

MOV 4TEXASC.-CSP) 

MOV 42,-CSP) 

MOV SP.RO 

TRAP CIPNTX 

AOD 46. SP 

30*: CMP 4100210, R4 

BNE 31$ 

MOV 4EPRT3.EPRTSW 

311: TST EPRTSW 

BNE 310$ 

MOV 4EPRT1.EPRTSW 

310$: MOV EPRTSW, 32$*2 

32$: PRINTB 4EPRT1 

MOV ♦tr'RTl.-CSP) 

MOV #1. -(SP) 

MOV SP.RO 

TRAP C$PNTB 

ADD 44 , SP 

MOV *€PRT1, EPRTSW 

RTS PC 



iGET THE TSSR CONTENTS 

j CLEAR ALL BUT TERMINATION 

j GET THE TERMINATION CODE MEANING 

I PRINT THE TERMINATION CODE 



j TSSR CONTENTS AGAIN 

j CLEAR ALL BUT FATAL TERMINATION 

j DON'T PRINT IF ZERO 



lALINc TERMINATION CODE FOR INOEX 
iGET TNE FATAL TERMINATION CODE 
j PRINT THE FATAL TERMINATION CODE 



jDROP THIS UNIT AFTER ERROR MESSAGE 

j GET TSSR CONTENTS 

i CLEAR ALL BUT EXTENDED ADDRESS 

I DON' T PRINT IF ZERO 

j PRINT THE EXTENOED ADDRESS BITS 



I CHECK FOR MEDIA ERROR 

I BR. IF PROBABLY NOT TAPE ERROR 

IMPROBABLY MEDIA RELETED ERROR - BAD TAPE'* 

jCHECK FOR THE SWITCH EMPTY 

jBR. IF SWITCH IS NOT EMPTY 

I SET SWITCH TO DEFAULT 

i PUT REAL SWITCHABLE MESSAGE IN PLACE 

I PRINT THE ERROR MESSAGE 



j RESET TO NORMAL ERROR POINTER 
, RETURN TO CALLER 



EPRTli .A5CIZ «*N*A *****CHECK CABLES BETWEEN CONTROLLER AND TRANSP0RU*****5 



CZ1KGA tw.-.^S .-iiT END FUNC 03 
PRITSSR • KU^T TSSR CONTENTS 
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SEQ 46 



1600 
160V 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
loll 
16.1? 
j.613 
1614 
16 IS 
161b 
1617 
1618 
1619 
1620 
1621 
162? 
162', 
1624 



('."05 V r' 1 
0O006,'' 
005 V'-..'. 
OOtl'U 

00*20 s 

006314 
C06343 

00c<04 

OO*^' 1 

cs>;vi4"' 

CC67.14 



006 Ml 
0O67.SG 
OOVOi.0 
00701'.. 1 
007063 



045 
045 
045 
045 
045 
045 
045 
045 

006424 
116 
124 
124 
106 
122 
122 
125 
106 



006754 
111 
122 
102 
122 



116 
116 
116 
116 
U6 
116 
116 
116 

006447 
157 
145 
141 
165 
145 
145 
156 
141 



007010 
156 
145 
165 
145 



045 
045 
045 
045 
045 
045 
045 
045 

006475 
162 
162 
160 
156 
143 
143 
162 
164 



007021 
164 
163 
163 
163 



tPRT2; 

EPRT3: 

TSSRFOR 

TEXASC 

TCOASC 

TFCASC 

TSSDEF 

AMBTSSR 

TCOCOO: 

1$ 

2% 

3* 

4$ 

51 

6$ 

7* 

8* 



TSFCOD: 

1$ 

2$ 

31 

4$ 



.ASCIZ 
♦ASCIZ 



.EVEN 

.WORD 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

.UORD 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 



•*N*A 

•*N*A 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

, ASCIZ 



♦•♦♦•CHECK TRANSPORT******S' 

•♦♦♦♦POSSIBLE MEDIA RELATED ERROR - BAD TAPE******S' 



»#N*A 
«#N*A 
•#N*A 
'*N*A 

•#N*A 
' #N*A 



TSSR - s*06' 

Extended Address Bits - *06' 

Termination Class Cods ■ *T' 

Fatal Termination Class Code - #T 

TSSR BJts Set; #T' 

TSSR Contents Are Ambiguous' 



1$. 21. 31.4$, 51,61, 71,81 

'Normal Termination' 
•Termination Condition' 
' Taps Status Alert' 
'Function Reject' 

* Recoverable Error - Tape 

• Recoverable Error - Tape 
'Unrecoverable Error' 
•Fatal Controller Error' 



Position One Record Down' 
Was Not Moved' 



11,21, 39,4$ 

'Internal Dlaopostic Failure' 

•Reserved' 

•Bus Interface or Sanity Check Error' 

' Reserved' 



14 



CZTKGA TK-25 : RT END KUNC *3 MACRO M1200 20-APR-B4 05:13 PAGE 36 
PR;.PKT - PAINT THE ADDRESS/CONTENTS OF COMMAND PACKET 



SEQ 47 



1626 
162/ 
1623 
1629 
1630 
16U 
i6o2 
1615 
16*4 
1635 
1636 
1637 
163B 
1659 
1640 
164.1 
1642 
16-«: r . 
1644 
16*5 
1646 
164? 
1648 
16*9 
I6V.) 
1651 



1652 

ions 

1654 
1655 
1656 
165/ 
1658 
1659 



1660 
1661 
1662 
1663 



(J 070 /ft 
00 7076 

00?) u;? 

007J.04 
007 UO 
007; 12 
00? LI 4 
O07.M6 
OO/lf 

OO'UV 

00/),Vi 

O'jvu;.; 

DOV-i-V. 

00/1 X 1 
O-TUM 
OC /I'D 
0O/K2 
00 /i 4* 
00 71 S;) 

0071 :;;> 
oo/uw 

0071:6 

oo ■/.:! 

007 U. 4 

OO'Mwft 
OWi.7-.*) 
00 'J /O 
00/?. 7;.* 
00 i'l' ( 

oo;;\>v» 

OOVl* 

00720ft 

00//M.0 

00/2 1 •♦ 
OO/.Hft 

oc ;::20 
Oo/JL'.:* 
00 /2 vi 

oo /'..!, :,s 

00/ ,^2 
0(-/2< l 
COY 2 in 



.SBTTL PRIPKT - PRINT THE ADDRESS/CONTENTS OF COMMANO PACKET 

♦ 

THIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A COMMANO PACKET. 
THIS ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE. 



INPUT? 



RO 
R3 
R4 



010005 

005737 003102 

C01001 

005003 

010301 

010400 

0O6100 

006101 



007302 
000003 



000010 



020304 



010446 

010146 
012746 
0.13746 
010600 
1C4414 
062706 
010300 
001404 
010401 
004737 
0'0OO4 
005001 
012402 



010246 

010146 

012746 00/244 

012746 000003 

010600 

104414 

062706 000010 

005201 

020105 

002/62 

012746 007 337 

012/46 000001 

i,-\0600 

104414 

062706 000004 



PRIPKT:: 

SAVREG 
MOV 
TST 
BNE 
CLR 
10$: MOV 

MOV 
ROL 
ROL 

PRINTB 
MOV 
MOV 



151 



20$ 
25$ 



V P 

MOV 

BEG 

MOV 

JSR 

MOV 

CLR 

MOV 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

INC 

CMP 

BIT 

PRINTB 

MOV 

MOV 

MOV 

TRAP 

ADD 



NUMBER OF WORDS IN PACKET 

HIGH ORDER COMMAND PACKET ADDRESS 

ADDRESS OF COMMAND PACKET 



NOTE: R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR. 



R0.R5 

KTENABLE 

10$ 

R3 

R3.R1 

R4.R0 

RO 

Rl 

♦PKTA00,Rl,R4 

R4.-CSP) 

Rip (SP) 

♦PKTADO, (SP) 

♦3,-CSP) 

SP.RO 

CIPNTB 

♦10. SP 

R3.R0 

20$ 

R4.R1 

PC.SETHAP 

R0.R4 

Rl 

(R4^,R2 

♦PKTFRM.R1.R2 

R2, -(SP) 

Rl.-(SP) 

•PK'TFRM, *(SP) 

♦3.-CSP) 

SP.RO 

C5PNTB 

*10,SP 

Rl 

R1.R5 

25$ 

♦PKTNEW 

♦PKTNEW, (SP) 

♦1. (SP) 

SP.RO 

C$PNTB 

04. SP 



: SAVE THE REGISTERS 

l SAVE NO. OF WORDS IN PACKET 

jABOVE 2«K UNDER TEST? 

iBR IF YES 

I SET HIGH ORDER ADDRESS TO 

I COPY HIGH OROER ADDRESS 

»GET LOWER ADORESS 

jSHIFT BIT 15 INTO C BIT 

j AND INTO HIGH ORDER. 

i PRINT PACKET ADDRESS 



iGET HIGH OROER ADDRESS 

j BR IF NOT ABOVE 25K . 

iGET LOW ORDER ADORESS 

iSETUP PAR6 MAPPING FOR 18 BIT ADDRESS 

»GET RETURNED PAR6 ADORESS BIAS 

i SAVE WORD NUMBER 

jGET PACKET CONTENTS 

j PRINT THE DATA 



jNEXT WORD NUMBER 

jPONe ALL PACKET WORDS? 

j LOOP TILL ALL DONE 

»JUST A COUPLE NEW LINES 



J4 

CZ'iKuP '.;.-25 F Ri END FUNC 03 MACRO M1200 20-APR-84 08sl3 PAGE 36-1 SEQ 48 

PfUPlO - PRINT THE /MIDRESS/CONTENTS OF COMMAND PACKET 

RTS PC jRETURN 

045 PKTFRM: . ASCIZ '*N#A Pock«t Word OHDHA - *06' 
045 PKTADDj . ASCIZ ' *N*A Paqket AcWr^Sft * *01*Q5' 

045 PKTNEW; .ASCIZ 'tfNtfNKA • 
.EVEN 



1*6 007242 


OOOr'07 




1C 






1.6 ■' ">072A4 


045 


116 


1* .. i.073^2 


O'.S 


116 


li-.'-.-i 






1.69 007357 


04 iS 


116 


10/0 






it a 







I<4 



CZTKGA TK-25 FRT END FUNC 03 MACRO M1200 

PRIBXOR - PRINT EXPO, RECV AND XOR BYTE 



1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1631 
168? 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1C95 
1696 
1697 
1698 
1699 



1700 
1701 
1702 
1703 
1 <>04 
1705 



007350 
007350 
007354 
007356 
Ou7366 
00737? 
007374 
007376 
007400 
O07400 
007402 
007404 
007406 
007412 
007416 
007420 
007422 
007426 
007430 

007432 



010203 

012700 
040001 
040002 
040003 

010346 
010146 
010246 
012 746 
012746 
010600 
1044 14 
062706 
010300 
0OO207 

045 
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.SBTTL PRIBXOR - PRINT EXPO. RECV AND XOR BYTE 



SEQ 49 



J ♦ 

i 



PRINT EXPECTED DATA, RECEIVED DATA, ANO XOR OF THE DATA BYTE 
THIS ROUTINE IS NORMALLY CALLED ONLY TOR PRINT ROUTINES. 



INPUTS; 



Rl 
R2 



OUTPUT} 



177400 



007432 
000C04 



000012 



RO 



PRIBXOR? j 

SAVREG 

MOV 

XOR 

MOV 

8IC 

BIC 

BIC 

P3INTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

MOV 

RTS 



116 



045 XORBFORt 



HECFIVF.D DATA 
EXPECTED DATA 



XOR OF EXPECTED/RECEIVED DATA 



I SAVE THE REGISTERS 



DATA 

EXCLUSIVE 
MASK 

LOW BYTE RECV 
LOU BYTE EXPO 
LOW BYTE XOR 



R2.R3 jEXPECTED 

R1.R3 » FORM THE 

OtC<377>,RO iBYTE 

R0.R1 » SAVE 

R0,R2 ;SAVE 

R0.R3 jSAVE 

4X0RBF0ft.R2.Rl.R3 jPRINT THE MESSAGE 

R3.-CSP) 

Rl, (SP) 

R2.-CSP) 

OXORBFON.-CSP) 

♦4. -CSP) 

sp.ro 

CfcPNTB 

♦12. SP 

R3.R0 jRO HAS 

PC ; RE TURN 



OR 



XOR ON RETURN 
TO CALLER 



.EVEN 



.ASCIZ 'itNrfA EXPD: *03*A RECV: *03*A XOR: *03 



Kfigfi TK -*Mm F 



1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 



1730 
1731 
1732 
1/33 
1734 



007500 
007500 
007504 
007506 
C07516 
007516 
007520 
007522 
007524 
007530 
007534 
007536 
00/540 
007544 
007546 

007550 



L4 

03 MACRO M1200 20-APR-64 0*:13 PAGE 38 

.SBTTL PRIXOR - PRINT EXPO, RECV AND XOR 



PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE TWO 
THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES 



SEQ 50 



INPUTS: 



Rl RECEIVED DATA 
R2 EXPECTED DATA 



OUTPUT; 



RO XOR OF EXPECTED/RECEIVED DATA 



010203 



010346 
010146 
010246 
012746 
012746 
010600 
104414 
062706 
01030O 
000207 



007550 
000004 



000012 



045 



116 



PRIXOR;: 

SAVREG j SAVE THE REGISTERS 

MOV R2.R3 , EXPECTED DATA 

XOR R1.R3 jFORM THE EXCLUSIVE OR 

PRINTS *XORFOR,R2,R1,R3 ; PRINT THE MESSAGE 

MOV R3.-CSP) 

MOV Rl.-CSP) 

MOV R2.-CSP) 

MOV *XOKFO«,-(SP) 

MOV *4 f -CSP) 

MOV SP.RO 

TRAP CIPNTO 

ADD *12,SP 

MOV R3.R0 jRO HAS X0« ON RETURN 

RTS PC {RETURN TO CALLER 

045 XQRFQR: .ASCI2 '*N*A EXPO; *06*A RECV: *Q6*A XOR; *06' 
,EVEN 



M4 
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SEQ 51 



1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
174 7 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 

1770 



1771 
1772 

1/73 
1774 
1775 
1776 

1777 
17 78 
17/9 
1780 
1/81 
1782 
1783 
1784 
1 785 
1786 



.SBTTL PRXEQU - PRINT BIT NUMBERS AS ASCII EQUIVALENT 



ROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING 
{THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 



i INPUTS: 



RO 
Rl 



OCTAL VALUE TO CONVERT 

TABLE OF POINTERS TO ASCII EQUIVALENT 



007616 
007616 
007622 



PRIEQU: 



000207 



SAVREG 
RTS PC 



;SAVE THE REGISTERS 
I RETURN TO CALLER 



.SBTTL PRIRAM - PRINT RAM ADDRESS 



PRINT CONTROLLER RAM ADDRESS. 

THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 



: INPUTS? 



007624 
007624 
007630 
007630 
007632 
007636 
007642 
007644 
007646 
00 7652 

007654 



PRIRAM: 



010446 

012746 007654 

012746 000002 

010600 

104414 

062706 000006 



000207 
045 



R4 



SAVREG 

PRINTB 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

RTS 



RAM ADDRESS 



«RAHF0R.ft4 
R4, -CSP") 
♦RAMFOR.-CSP) 
#2, -CSP) 

SP.RO 
CtPNTB 
06, SP 
PC 



j SAVE R1-R5 UNTIL NEXT RETURN 
I PRINT RAM ADDRESS IN ERROR 



jRETURN 



116 



045 RAMFORi .ASCU 
.EVEN 



'*N*A CONTROLLER RAM ADDRESS " *06 



.SBTTL PRIADD - PRINT MEMORY ERROR ADDRESS 



PRINT MEMORY ADDRESS 
I THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 

IMPLICIT INPUTS 

I'UilHl - HIGH ORDER ADDRESS 
ERWLO - LOW ORDER ADDRESS 



N4 



CZTKGA TK-25 FRT END F'UNC 03 MACRO M1200 
PRIADD - PRINT MEMORY ERROR ADDRESS 



20-APR-84 08il3 PAGE 39-1 



SEQ 52 



1787 
1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 



1797 
1798 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 
1810 
1811 
1812 
1813 
1814 
1815 
1816 
1817 
1818 
1819 
1820 
1821 
1822 



1623 

1824 
1825 
1826 
1827 
1828 
1829 



007716 
007716 
007722 
007726 
007732 
007734 
007736 
007/40 
007740 
007742 
007744 
007750 
007754 
007 756 
007760 
007764 

007766 



010032 
010032 
010036 
010042 
010O46 
010050 
010052 
010054 
010O54 
010O56 
010060 
010064 
010070 
010072 
010074 
010100 

oioioa 



013700 
013701 
010102 
006101 
006100 

0x0246 
010046 
012746 
012746 
010600 
104414 
062706 
000207 

045 



013700 
013701 
010102 
006101 
006100 

010246 
010046 
012746 
012746 
010600 
104414 
062/06 
000207 

045 



PRIADD: 



002202 
002204 



007766 
000003 



000010 
116 



045 PRIAO: 



SAVREG 

MOV 

NOV 

MOV 

ROL 

ROL 

PRINTS 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

RTS 



.EVEN 



ERRHI, RO 

ERRL0,R1 

R1.R2 

Rl 

RO 

>>PRIA0,R0,R2 

R2.-CSP) 

RO.-CSP) 

*PRIAO,-(SP) 

03, -CSP) 

SP.R0 

CtPNTB 

♦10, SP 

PC 



{SAVE R1-R5 UNTIL NEXT RETURN 

jGET HIGH ADDRESSS 

iGET LOW ADDRESS 

{COPY LOW ADDRESS 

{SHIFT BIT 15 TO C BIT 

j SHIFT INTO HIGH ORDER 

{PRINT MEMORY ADDRESS IN ERROR 



{RETURN 



KNKA MEMORY ERROR ADDRESS - 1*01*05 



.SBTTL PRITADD - PRINT MEMORY TEST ADDRESS 



PRINT MEMORY rDORESS 

THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES, 



IMPLICIT INPUTS 



ERRHI 
ERRLO 



- HIGH ORDER ADDRESS 

- LOW ORDER ADDRESS 



PRITADD: 



002202 
002204 



010102 
000003 



000010 
116 



045 PRXTOl 



SAVREG 

MOV 

MOV 

MOV 

ROL 

POL 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

RTS 

•ASCIZ 
.EVEN 



ERRHI, RO 

ERRLO, Rl 

RI.R2 

Rl 

RO 

*PRIT0,R0.R2 

R2.-CSP) 

RO. -CSP) 

OPRITO, CSP) 

03, CSP) 

SP.RO 

CIPNTB 

no, sp 

PC 



{SAVE R1-R5 UNTIL NEXT RETURN 

j GET HIGH ADORESSS 

jGET LOW ADDRESS 

;COPY LOW ADDRESS 

{SHIFT BIT 15 TO C BIT 

; SHIFT INTO HIGH ORDfcR 

j PRINT MEMORY ADDRESS IN ERROR 



{RETURN 



'*N#A MEMORY TEST ADDRESS - K01K05 



B5 



CZTKGA TK-25 FRT END FUNT #3 MACRO M1200 20-APR-64 06:13 
SPACE - SPACE RECORDS (FORWARD ANO REVERSE) COMMAND 
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SEQ 53 



1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1646 
1649 
1650 
1651 
1652 
1653 
1654 
1855 
1656 
1657 
1656 
1659 
1660 
1661 
1662 
1663 
1604 
1665 
1666 
1667 
1666 
1669 
1670 
1871 
1672 
1673 
1874 
1875 
1876 
1677 
1876 
1879 
1660 
1861 



010144 
010144 
010150 
010156 
010164 
010166 
010170 
010174 
010176 
010202 
010206 
010214 
010220 
010224 
010230 
010232 
010232 
010236 
010240 
010244 
010246 
010252 



012737 
012737 
005703 
100403 
010337 
0OO407 
042703 
010337 
052737 
012704 
010465 
004737 
103420 

012727 
000000 
013727 
000000 

005367 
001375 



,5BTTL SPACE - SPACE RECORDS (FORWARD ANO REVERSE) COMMAND 



ROUTINE TO ISSUE A SPACE RECORDS 
COMMAND (FORWARD OR REVERSE) 



INPUT i 



R3 



R5 



NUMBER Of RECORDS TO BE SPACED OVER 

BIT15 CONTROLS DIRECTION 

BIT15 - IS FORWARD 

BIT15 • 1 IS REVERSE 

FIRST DEVICE UNIBUS ADDRESS 



REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 



OUTPUT: 



CARRY SET - SPACE RECORDS COMMAND OK 
CLR - SPACE RECORDS FAILED 



RO 



THE CONTENTS OF R4 IS MOVED TO RO 



IMPLICIT OUTPUT: 

TAPE HAS BEEN MOVED 
SIDE EFFECTS: 

SPACE!? 



000764 

140010 



010332 

100000 
010332 
000400 

010330 
177776 
017134 



000250 
002116 
177772 



010340 
010330 



010330 



51 



101: 
151 i 



SAVREG 




MOV 


♦500..SDELAY 


MOV 


#140010.801 


TST 


R3 


BMI 


51 


MOV 


R3 f 90i 


BR 


101 


BIC 


♦BIT13.R3 


MOV 


R3.90I 


BIS 


#eiT6,eo$ 


MOV 


#601, R4 


MOV 


R4.TS0BCR5) 


JSR 


PC.WAITF 


BCS 


201 


DELAY 


250 


MOV 


#250,(PC)» 


.WORO 





MOV 


LIDLY,(PCJt 


.UORQ 





DEC 


-6CPC) 


8N£ 


,-4 



I SAVE THE GENERAL REGISTERS 

iSET UP DELAY 

I SET UP COMMAND. SPACE FORWARD 

iCMECK FOR DIRECTION 

iBR, IF REVERSE INDICATED 

iLOAO UP NUWER OF REuORDS TO SPACE 

iGO DO COMMA*© 

■CLEAR DIRECTION BIT 

iLOAO UP NUMBER OF RECORDS TO SPACE 

l SET REVERSE BIT IN CCMMANO PACKET 

»SET UP R4 WITH PACKET AOORESS 

i SEND OUT COMMAND 

jUAIT FOR SSR 

iBR. IF SSR IS SET AND OK 

i DELAY ABOUT *25 SECONDS 











C5 




B A ™-&ff 


T Rl^^rW M A«o M ^ R^^ E ) 


*mw* 


08:13 PAGE 40-1 




010254 


005367 


177756 


DEC 


• 2(PC) 




010260 


001367 




BNE 


. 20 




1882 010262 


005337 


010340 


DEC 


SDELAY 


lBl*¥> DELAY COUNTER DOWN 


1883 010266 


001356 




BNE 


15$ 


iBR, If MORE DELAY 


1884 010270 


000411 




BR 


60$ 


iBR IF TROUBLE CARRY - CLEAR 


1885 010272 


016501 


000OO0 20$: 


MOV 


TSSR(R5),R1 


iREAD T55R 


1886 010276 


012702 


000200 


MOV 


♦SSR.R2 


iSET UP EXPECTED 


1887 010302 


020201 


25$: 


CMP 


R2.R1 


lAflE THEY OK 


1888 010304 


001401 




BEQ 


40$ 


iBR. IF EQUAL - OK 


1889 010306 


000402 




BR 


60$ 


1 TROUBLE EXIT 


1890 010310 


000261 


40$: 


SEC 




iSET CARRY NO TROUBLE 


1891 010312 


000401 




BR 


70$ 


iEXIT 


1892 010314 


000241 


60$: 


CLC 




1 CARRY CLEAR - ERROR 


1893 010316 




70$; 








1894 010316 


010400 




MOV 


R4.R0 


iPASS PACKET ADDRESS 


1695 010320 


000207 




RTS 


PC 


iRETURN 



SEQ 54 



D5 



1897 { 

ia<*e , 

1899 j 

1900 , PACKET FOP SPACE COMMAND 

1901 i 

1903 010322 ,BLK8 10-< . -TUV2A£7> 

1905 , 

1906 iCOHMANO WOTO 
l'*)! 010330 OOOOOO 60$: ,WO*0 

i ( x)8 iNi'ieen of records to be spaced over word 

1909 010332 OOOOOO 90$ : .WORD 

1910 010334 OOOOOO .WORD 

1911 010336 OOOOOO .WORD 

1912 010340 OOOOOO SDELAY; .WORD iDELAY COUNTER 

1913 .EVEN 



E5 



CZTKGA TK-25 FRT ENO FUNC *3 MACRO M1200 
WRTCHR - WRITE CHARACTERISTICS COMMAND 



1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1*41 
1942 
1943 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1956 
1959 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 



20-APR-84 08:13 PAGE 42 



,SBTTL WRTCHR - WRITE CHARACTERISTICS COMMAND 



SEQ 56 



ROUTINE TO ISSUE A WRITE CHARACTERISTICS 
COMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED 



INPUT; 



R4 ADDRESS Of PACKET FROM TEST 

R5 FIRST DEVICE UNIBUS ADDRESS 

REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 



OUTPUT? 



RO TSSR CONTENTS 

CARRY SET - WRITE CHARACTERISTICS COMMAND OK 
CLR - WRITE CHARACTERISTICS FAILED 



IMPLICIT OUTPUT: 



MESSAGE BUFFER ANO OTHER BUFFERS ALL SET UP 
SOFTWARE SWITCHES SET AS FOLLOWS: 

BENBSW ■ BUFFER ENABLE SWITCH ON OR OFF 



SIDE EFFECTS: 



010342 
010342 
010346 
010352 
010356 
010362 
010364 
010366 
010372 
010376 
010402 
010404 
010410 
010412 
010414 
010416 
010422 
010424 
010430 
010432 
010434 
0104 36 
010442 



005037 
010465 
0O4737 
103401 
000423 
016501 
012702 
032701 
001402 
052702 
020201 
001401 
000407 
062704 
011403 
010337 
000261 
000401 
000241 
016500 
000207 



0021 M 

177776 
017252 



OOOOOO 
000200 
000100 

000100 



000010 

002/16 

OOOOOO 



WRTCHR: 


*SAVREG 






CLR 


BENBSW i 


10$: 


MOV 


R4,TSD6(R5) i 




JSR 


PC.CHKTSSR i 




BCS 


20$ i 




BR 


60$ i 


201: 


MOV 


TSSRCR5) # R1 i 




MOV 


♦SSR.R2 j 




BiT 


♦0FL.R1 j 




BEQ 


25$ i 




BIS 


40FL.R2 i 


25$: 


CMP 


K\R1 i 




BEQ 


4l4 i 




BR 


60$ j 


401: 


ADD 


♦8..R4 , 




MOV 


(R4).R3 i 




MOV 


R3.MESBFA » 




SEC 






BR 


70$ ! 


60$: 


CLC 




70$ X 


MOV 


TSSR(R5).R0 ! 




RTS 


PC i 



SAVE THE GENERAL REGISTERS 

CLEAR BUFFER ENABLE SWITCH 

SEND OUT COMMAND 

WAIT FOR SSR 

BR. IF SSR IS SET AND OK 

BR IF TROUBLE CARRY - CLEAR 

READ TSSR 

SET UP EXPECTED 

WAS OFF LINE SET IN TSSR 

BR. IF NO OFL SET 

MAKE THEM LOOK ALIKE 

ARE THEY OK 

BR. IF EQUAL • OK 

TROUBLE EXIT 

POINT TO WRT CHARA DATA PACKET 

GET ADDRESS OF MESSAGE BUFFER 

STORE FOR PRINT ROUTINES 

SET CARRY NO TROUBLE 

EXIT 

CARRY CLEAR - ERROR 

RETURN TSSR CONTENTS 

RETURN 



F5 



CZTKGA TK-25 FRT END FUNC *3 MACRO M1200 
REWINO - POSITION TAPE (REWIND) COMMAND 



1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 
1985 
1986 
1987 
1968 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1998 
1999 
2000 
2001 
2002 
2003 
2004 



2005 
20O6 
2007 
2008 
2009 
2011 
2013 
2014 
2015 



010444 
010444 
010450 
010454 
010460 
010464 
0104 70 
010472 
010472 
010476 
010500 
010504 
010506 
010512 
010514 
01052C 
010522 
010524 
010526 
010530 
010532 
010534 
010540 
010540 
010542 



012704 
010465 
012703 
0O4737 
103417 

012727 
000000 
013727 
COOOOO 
005367 
001375 
005367 
001367 
005303 
001357 
000241 
010400 
000207 



102010 
000000 
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.SBTTL REWINO - POSITION TAPE (REWIND) COMMAND 



SEQ 57 



THIS ROUTINE WILL REWIND THE SELECTED TAPE. 

CAUTION; THE ROUTINE DOES NOT WAIT FOR BOT 

TO ARRIVE. ALSO THE CALLER MUST CHECK FOR 
SSR TO SET IN THE TSSR 



CALLING SEQUENCE: 

DO A SOFT INIT 

DO A WRITE CHARACTERISTICS 

JSR PC , REWIND 



INPUT:. 



010540 
177776 
000550 
017134 



000372 

002116 
X77772 
177756 



OUTPUT 



REWIND? 



10$ 



20$ 



RWPACK; 



R5 



RO 



SAVREG 

MOV 

MOV 

MOV 

JSR 

BCS 

DELAY 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNt 

DEC 

BNE 

CLC 

MOV 

RTS 

.BLKB 

.WORD 
,WQRQ 



FIRST DEVICE UNIBUS ADDRESS 



THE CONTENTS OF R4 IS PASSED TO RO 



♦RWPACK.R4 

R4.TSDBCR5) 

♦360. ,R3 

PC.WAITF 

20 J 

250. 

♦250., (PC )♦ 



L$DLY,CPC)» 



-6CPC) 

. -4 

-22CPC) 

. -20 

R3 

10$ 

R4.R0 

PC 

10-<.-TUVaA£7> 

102010 




jSAVE R1-R5 UNTIL NEXT RETURN 

,GET PACKET ADORESS 

i SEND PACKET ADDRESS TO EXECUTE 

l ENOUGH TIME FOR 2400' REEL TO REWINO 

iWAIT FOR SSR TO SET 

iLEAVE UHEN SSR IS SET 

jWAIT FOR .25 SECONOS 



i BUMP COUNTER DOWN 

{ KEEP GOING 

, CLEAR CARRY TO SET ERROR 

i PASS THE PACKET ADDRESS 

jRETURN 



iPOSTION COMMAND (REWIND) 
l NOT USED 



G5 



CZTKGA TK-25 FRT ENO FUNC 43 MACRO M1200 
CKRAM - COMPARE RAM TO I/O PACKET 



2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 
2031 
2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
204 7 
204 P 
2049 
2050 
2051 
2052 
L053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2Cb5 
20f.o 
2C7 
2C68 
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♦SBTTL CKRAM - COMPARE RAM TO I/O PACKET 



SEQ 58 



ROUTINE TO READ THE FIRST 8 BYTES FROM RAM 
MEMORY AND COMPARE THIS DATA TO A COMMAND PACKET, 



INPUT: 



R4 
R5 



ADDRESS OF THE COMMANO PACKET 
FIRST DEVICE UNIBUS ADDRESS 



OUTPUT j 



CARRY 



SET - RAM MATCHES PACKET 

CLR - RAM DOES NOT MATCH PACKET 



IMPLICIT OUTPUT; 



THE TABLE RAMOATA IS FILLED WITH THE 

DATA HELD IN RAM. 

RAMSIZ IS SET TO 8. FOR PRAMPKT ROUTINE 



010544 
010544 
010550 
010554 
01056C 
010562 
010566 
010572 
010576 
010602 
010606 
010610 
01C612 
010614 
010616 
010622 
010624 
010626 
010630 
010632 
010634 
010636 
010644 



SIDE EFFECTS; 



CKRAM: 



012701 
012702 
00500o 
004757 
004737 
110265 
0O4737 
116511 
122124 
001401 

oor£o> 

005202 
020227 
003761 

005703 
001402 
000241 
000401 

000261 
012,'37 
000207 



002206 
000020 

M7252 
'•17252 

"mil 

017252 
177776 



060027 



G00010 002246 





SAVREG 






MOV 


♦RAMOATA. Rl i 




MOV 


♦RMPKTBEG.R2 i 




CLR 


R3 i 




JSR 


PC.CHKTSSR » 


10$: 


JSR 


PC.CHKTSSR i 




MOVB 


R2.TSD6HCR5) i 




JSR 


PC.CHKTSSR i 




MOVB 


TSBALCR5).CR1) » 




CMPB 


CR1)*.CR4)* j 




BEU 


20$ t 




INC 


R3 | 


20$: 


INC 


R2 i 




CMP 


R2,*RMPKTEND » 




BLE 


10$ j 




TST 


R3 , 




BEQ 


30$ i 




CLC 






BR 


50$ » 


30$: 


SEC 




50i; 


MOV 


♦8. .RAMSIZ j 




RTS 


PC , 



iSAVE THE GENERAL REGISTERS 

I ADDRESS TO SAVE THE RAM DATA 

iBYTE APORESS OF FIRST RAM DATA 

j CLEAR THE ERRO* FLAG 

»WAIT FOR SSR 

lUAIT FOR SSR TO SET 

1 SELECT NEX1 RAM ADDRESS 

iWAIT FOR SSH TO SET 

jREAD THE RAM DATA 

j COMPARE TO EXPECTED 

tBRAPOH If OX 

I SET ERROR PL AG 

j ADDRESS OF NEXT RAM LOCATION 

»REACHED END YET ? 

i BRANCH TILL ALL READ 

j WAS AN ERROR FO<JND ? 

I BRANCH IF NOT 

I CLEAR CMRRY TO SHOW ERROR 

i AND EX' T 

iSHOU GOOO COMPARE 

j SETUP RAMSIZ FOR PRAMPKT ROUTINE 

j RETURN 



CZTKGA TK 25 FRT ENI 
RAMER - READ ANO 01! 



H5 



l KUNC *3 MACRO M1200 

iPLAY SELECTED RAM 



2070 
207). 
2073 
2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 
2082 
2083 
2084 
2085 
2086 
2067 
2088 
2089 
2090 
2091 
2092 
2093 
2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 



2107 
2108 
2109 
2110 
2111 
2112 



2113 



010646 
010646 
010652 
010<>56 
010662 
010666 
010672 
010676 
0107C2 
01C706 
010712 
010716 
010720 
010724 
010730 
010732 
010736 
010736 
010740 
010742 
010746 
010752 
010754 
010756 
010762 
010766 
010772 
010774 
010776 
011002 
011002 
0110O4 
011010 
011014 
011016 
011020 
011024 



013705 
012701 
013702 
013 703 
004737 
110265 
0C4737 
116521 
062702 
077713 
013704 
013702 
060204 
162704 

010446 
010246 
012746 
012746 
010600 
104415 
062706 
012701 
013703 
0O50O4 
112104 
042704 

010446 
012746 
012746 
010600 
104415 
062 706 
077316 



01 1032 
002206 
011030 
002246 
017252 
177777 
017252 
177776 
00OC01 

002246 
011030 

00OOO1 



011034 
000003 



ooooio 

002206 
002246 



177400 



011105 

000002 



COOOOb 
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,SBTTL RAMER - READ AND DISPLAY SELECTED RAH 



SEQ 59 



ROUTINE TO READ THE SELECTED RAM LOCATIONS 

INPUT j 

R5 FIRST DEVICE UNIBUS ADDRESS 
CONSOLE WILL ALSO BE PRINTED TO 

IMPLICIT OUTPUTi 

THE TABLE RAMOATA IS FILLED WITH THE 
DATA HELD IN RAM. 

SIDE EFFECTS? 



RAMER jj 



10$: 



20$: 



30*2 



SAVREG 




MOV 


RAMR5H.R5 


MOV 


♦RAHDATA.R1 


MOV 


RAHHLD.R2 


MOV 


RAMSIZ.R3 


JSR 


PC.CHKTSSR 


MOVB 


R2,TSDBH(R5) 


JSR 


PC.CHKTSSR 


MOVB 


TSBALCR5) f (Rl)f 


ADD 


#1,R2 


SOB 


R3.10I 


MOV 


RAMSIZ.R4 


MOV 


RAMHLD.R2 


ADO 


R2.R4 


SUB 


♦1.R4 


PRINTX 


#RAMI0P,R2,R4 


MOV 


R4.-CSP) 


MOV 


R2,~(SP) 


MOV 


*RAMIOP>-CSP) 


MOV 


«3,-CSP) 


MOV 


SP,RO 


TRAP 


C1PNTX 


ADD 


«10, SP 


MOV 


oramdata.r: 


MOV 


RAMSIZ.R3 


CLR 


R4 


MOVB 


(R1)*,R4 


BIC 


#177400, R4 


PRINTX 


0RAMPD.R4 


MOV 


R4.-CSP) 


MOV 


#RAMPD,(SP) 


MOV 


*2,-CSP) 


MOV 


SP.RO 


TRAP 


CfPNTX 


ADD 


*6,SP 


SOB 


R3.30I 



l SAVE THE GENERAL REGISTERS 

iRESET R5 TO FIRST DEVICE REGISTER 

I ADDRESS TO SAVE THE RAM DATA 

iBYTE ADDRESS OF THE FIRST RAM DATA 

I SET THE SIZE OF THE READ UP 

i WAIT FOR THE SSR TO SET 

I SELECT NEXT RAM ADORESS 

j WAIT FOR SSR TO SET 

iREAD THE RAM DATA 

lADORESS OF THE NEXT RAH LOCATION 

iNUMBER OF LOCATIONS COUNTER 

iGET THE RAM SIZE 

»GET THE STARTING RAM ADDRESS 

j CALCULATE THE END ADDRESS 

\ CORRECT VALUE OF PRINTOUT 

I RAM ADDRESS * 10 - 17, ETC. 



I ADDRESS OF WHERE RAM DATA IS 

i THE SIZE OF THE RAM FIELD READ 

»N0 EXTRA DATA LEFT OVER 

jPICK UP BYTE Of RAM DATA 

tGET RID Of SIGN EXTEND 

»"010 211 111 222 377 000 123 134 ETC." 



iLDQP UNTIL ALL PRINTED 



15 



CZTKGA TK-25 FRT END FUNC 03 MACRO M1200 
RAMER - READ ANO DISPLAY SELECTED RAM 
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SEQ 60 



2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 



011026 000207 



011030 
011032 
011034 
011105 



000000 

000000 

045 

045 



116 
101 



045 
040 



50$: 

RAMHLD 

RAMR5H 
RAMIOP 
RAMPD: 



RTS 

.WORD 

.WORD 

.ASCIZ 

.ASCIZ 

.EVEN 



PC 









*N*A Ram 
*A *03*A 



I RETURN 

,RAM ADDR 

j HOLDS R5 

Addresa (Octal) 



HOLDER 1ST ADDRESS 

FOR LATER 

- *03*A - *03*N* 



J5 



CZTKGA TK-25 FRT END FUNC *3 MACRO M120O 20-APR-84 08:13 
CKRAM2 - COMPARE RAM TO I/O CHARACTERISTICS DATA 
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SEQ 61 



2123 



2124 








2125 








2126 








2127 








2128 








2129 








2130 








2131 








2132 








2133 








2134 








2135 








2136 








2137 








2138 








2139 








2140 








2141 








2142 








2143 








2144 








2145 








2146 








2147 








2148 








2149 








2150 


011120 






2151 


011120 






2152 


011324 


012701 


002206 


2153 


011130 


012702 


000167 


2154 


011134 


005003 




2155 


011136 


004737 


017252 


2156 


011142 


004737 


017252 


2157 


011146 


11C265 


177777 


2158 


011152 


004737 


01/252 


2159 


011156 


116511 


177776 


2160 


011162 


122124 




2161 


011164 


001401 




216c! 


011166 


005203 




pits 


011170 


005202 




2164 


011172 


012/37 


OOOOIO 


2165 


011200 


020227 


000176 


2166 


011204 


005756 




216' 


0L1206 


005705 




2168 


011210 


001402 




2169 


011212 


0O024 3 




2170 


011214 


000401 




2171 


01121b 


0002 U 




2172 


011220 


000207 





,SBTTL CKRAM2 - COMPARE RAM TO I/O CHARACTERISTICS DATA 
♦ 

ROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM RAM 

MEMORY AN.; COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK. 



INPUT: 



R4 
R5 



ADDRESS OF THE CHARACTERISTICS DATA 
FIRST DEVICE UNIBUS ADDRESS 



OUTPUT : 



CARRY 



SET - RAM MATCHES PACKET 

CLR - RAM DOES NOT MATCH PACKET 



IMPLICIT OUTPUT j 



THE TABLE RAMDATA IS FILLED WITH THE 

DATA HELD IN RAM, 

RAMSIZ IS SET TO 8, OR 10, FOR PRAMPKT ROUTINE 



SIDE EFFECTS', 



CKRAM2: 



002246 





SAVREG 






MOV 


*RAM0ATA,R1 j 




MOV 


♦RMCHBEG.R2 i 




CLR 


R3 i 




JSR 


PC.CHKTSSR j 


10$: 


JSR 


PC.CHKTSSR i 




MOVB 


R2.TSD6HCR5) i 




JSR 


PC.CHKTSSR i 




MOVB 


TSBALCR5),(R1) i 




CMPB 


(R1)*,CR4>* i 




BEQ 


20$ , 




INC 


R3 i 


20$: 


INC 


R2 i 




MOV 


«S,, RAMSIZ i 




CMP 


R2,*RMCHEND-2 i 




OLE 


101 , 


271 j 


1ST 


R3 j 




BEQ 


301 j 




CI.C 






nn 


50$ i 


30 * : 


SLC 




50 J: 


RTS 


pc ! 



SAVE THE GENERAL RECISTER** 

ADDRESS TO SAVE THE RAM WA 

BYTE ADDRESS OF FIRST RAM DATA 

CLEAR THE ERROR FLAG 

WAIT FOR SSR 

WAIT FOR SSR TO SET 

SELECT NEXT RAM ADDRESS 

WAIT FOR SSR TO SET 

READ THE RAM DATA 

COMPARE TO EXPECTED 

BRANCH IF OK 

SET ERROR FLAG 

ADDRESS OF NEXT RAM L.OCATIUN 

ASSUME NORMAL NOT SET 

REACHED END YET ? 

BRANCH TILL ALL READ 

WAS AN ERROR FOUND ? 

aHANCH IF NOT 

CLEAR CARRY TO SHOW ERROR 

AND EXIT 

SHOU GOOD COMPARE 

RETURN 



C7TKGA TK-25 FRT END f-'UNC 03 MACRO M1200 20-APR-84 08il3 
CKMSG - COMPARE WRITE CHAR. MESSAGE BUFFERS 
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SEQ 62 



2174 








2175 








2176 








2177 








2178 








2179 








2180 








2181 








2182 








2183 








2184 








2183 








2186 








2187 








2168 








2189 








2190 








2191 








2192 








2193 








2194 








2195 








2196 








2197 








2198 








2199 


011222 






2200 


011222 




«~ ' " 


2201 


011226 


010037 


602250 


2202 


011232 


010137 


002252 


2203 


011236 


005737 


003102 


2204 


011242 


001403 




22uS 


011244 


0O4737 


020304 


220<» 


011250 


010001 




220/ 


011252 


005004 




2208 


011254 


005003 




2209 


011256 


010205 




2210 


011260 


011264 


002266 


2211 


011264 


011164 


002432 


2212 


011270 


022221 




2213 


011272 


001401 




2214 


011274 


005203 




2215 


011276 


062704 


000002 


2216 


011302 


020427 


000014 


2217 


011306 


003764 




2218 


011310 


032765 


000200 000012 


2219 


011316 


001403 




2220 


011320 


020427 


000016 


2221 


011324 


003755 




2222 


011326 


005703 




2223 


011330 


001402 




2224 


011332 


000241 




2225 


011334 


000401 




2226 


011336 


000261 




222/ 


QU340 


000207 




2228 









.SBTTL CKMSG - COMPARE WRITE CHAR. MESSAGE BUFFERS 



ROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPO AN!) RECV 
BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
ERROR PRINT ROUTINES. 



INPUT} 



OUTPUT; 



RO 
Rl 
R2 



RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOW ORDER ADDRESS 
EXPD MESSAGE BUFFER ADDRESS 



CARRY 



SET - MESSAGE BUFFERS MATCH 

CLR -MESSAGE BUFFERS DON'T MATCH 



IMPLICIT OUTPUT: 

EXPMSG 
RECMSG 
RCVHIADD 
RCVLOADD 



BUFFER IS SET TO EXPD luTA 
BUFFER IS SET TO RECV DATA 
SET TO HIGH ORDER ADDRESS OF RECV 
SET TO LOW ORDER ADDRESS OF RECV 



CKMSG: 



10$ 



15$ 



25$ 



50$ 



55$ 
60$ 



SAVREG 

MOV 

MOV 

TST 

BEQ 

JSR 

MOV 

CLR 

CLR 

MOV 

MOV 

MOV 

CMP 

BEQ 

INC 

ADD 

CMP 

BLE 

BIT 

BEQ 

CMP 

OLE 

TST 

BEQ 

Cl.C 

BR 

SfcC 

RTS 



RO, RCVHIADD 

Rl.RCVLOAD 

KTENABLE 

10$ 

PC.SETMAP 

R0.R1 

R4 

R3 

R2 R5 

(R2),EXPMSGCR4) 

(R1),RECMSGCR4) 

CR2)*,CR1)» 

25t 

R3 

*2,R4 

R4.014 

15$ 

0X2.EXTF.XST2CR5 

50$ 

R4.016 

15$ 

R3 

55$ 

60$ 

PC 



SAVE R1-R5 UNTIL NEXT RETURN 
SAVE RECV HIGH ADDRESS 
SAVE RECV LOW ADDRESS 
TESTING ABOVE 28K? 
BR IF NO 

RETURN ADORESS BIASED TO PAR6 IN RO 
GET RETURNED ADORESS BIASED TO PAR6 
WORD IN BUFFER 
CLEAR ERROR SEEN FLAG 
GET EXPD BUFFER ADORESS 
SAVE EXPO FOR ERROR REPORT 
SAVE RECV FOR ERROR REPORT 
EXPD EQUAL RECV? 
BR IF YES 

SET ERROR SEEN FLAG 
POINT TO NEXT UORD ADDRESS 
DONE FIRST 7 WORDS? 
BR IF NO 
)|IS EXTENDED FEATURES SET IN EXPD? 
BR IF NO 

DONE EXTENDED FEATURES WORD? 
BR IF NO 
ANY ERRORS SEEN? 
BR IF NO 
SET FAILURE 

SET SUCCESS 
RETURN 



L5 



CZTKGA TK-25 FRT END FUNC *3 MACRO M1200 
CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 
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SEG) 63 



2230 










.SBTTL 


CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 


2231 








; ♦ 






223? 














2233 








i ROUTINE TO COMPARE AN EXPECTED ANO RECEIVED MESSAGE 


2234 








j BUFFER 


, THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 


2235 








{ERROR 


PRINT ROUTINE, 


2236 














2237 








l INPUT: 






2236 














2239 










RO 


RECV MESSAGE BUFFER HIGH ORDER ADDRESS 


2240 










Rl 


RECV MESSAGE BUFFER LOW ORDER ADDRESS 


2241 










R2 


EXPD MESSAGE BUFFER ADORESS 


2242 










R3 


NUMBER OF BYTES TO COMPARE 


2243 














2244 








I OUTPUT 


• 




2245 














2246 










CARRY 


SET - MESSAGE BUFFER i MATCH 


2247 












CLR - MESSAGE BUFFERS DON'T MATCH 


2248 














2249 








J IMPLICIT OUTPUT: 


2250 














2251 










EXPMSG 


BUFFER IS SET TO EXPD DATA 


2252 










RECHSG 


BUFFER IS SET TO RECV DATA 


2253 










RCVHIADD SET TO HIGH ORDER ADDRESS OF RECV 


2254 
2255 










RCVLOADD SET TO LOU ORDER ADDRESS OF RECV 


2256 
2257 


011342 






CKMSG2: 


♦ 




2258 


011342 








SAVREG 


1 SAVE R1-R5 UNTIL NEXT RETURN 


2259 


011346 


020327 


000144 




CMP 


R3.*RECMSG-EXPMSGiQ0D IS COUNT ABOVE MAX ALLOWED? 


2260 


011352 


003412 






BLE 


5$ jSSO BR IF NO 


2261 


011354 


012703 


000144 




MOV 


*RECMSG-EXPMSG,R3iSaO 


2262 


011360 








PRINTF 


*OEBUGMSG tSSO 




011360 


012746 


011474 




MOV 


♦OEBUGMSG.-(SP) 




011364 


012746 


000001 




MOV 


♦1. -CSP) 




011370 


010600 






MOV 


SP.RO 




011372 


104417 






TRAP 


C$PNTF 




011374 


062706 


0O00O4 




ADD 


*4,SP 


2263 


011400 


010037 


002250 


5$: 


MOV 


RO. RCVHIADD i SAVE RECV HIGH ADDRESS 


2264 


011404 


010137 


002252 




MOV 


Rl.RCVLOAD (SAVE RECV LOW ADDRESS 


2265 


011410 


005737 


003102 




TST 


KTENABLE » TESTING ABOVE 28K? 


2266 


011414 


001403 






BEQ 


10$ jBR IF NO 


2267 


011416 


004737 


020304 




JSR 


PC.SETMAP i RETURN ADDRESS BIASED TO PAR6 IN RO 


2268 


011422 


010001 






MOV 


R0.R1 ,GET RETURNED ADDRESS BIASED TO PAR6 


2269 


011424 


005OO4 




10$: 


CLR 


R4 j WORD IN BUFFER 


2270 


011426 


005005 






CLR 


R5 i CLEAR ERROR SEEN FLAG 


2271 


011430 


111264 


002266 


15$: 


MOVB 


(R2),EXPMSG(R4) i SAVE EXPD FOR ERROR REPORT 


227? 


011434 


111164 


002432 




MOVB 


(RD.RECMSGCR4) ; SAVE ftECV FOR ERROR REPORT 


2273 


011440 


122221 






CMPB 


CR2)+,(Rl)f tEXPD EQUAL RECV? 


2274 


011442 


001401 






BEQ 


25$ ;6R IF YES 


2275 


011444 


005205 






INC 


R5 iSET ERROR SEEN FLAG 


2276 


011446 


062704 


000001 


25$: 


ADD 


♦1.R4 jPOINT TO NEXT BYTE 


2277 


011452 


020*03 






CW 


R*,R3 jDONE ALL BYTES? 


22/8 


011454 


002001 






BGE 


50$ »BR IF YES 


2279 


011456 


000764 






BR 


15$ jDO NEXT BTf TE 


2280 


011460 


005 705 




50$: 


TST 


R5 i ANY ERRORS SEEN? 


2281 


011462 


001402 






BEQ 


55$ {BR IF NO 



M5 
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SEQ 64 



CdOO 

2284 
2285 
2286 
228 7 
2288 
2289 
2290 
2291 
2292 



011464 
011466 
011470 
011472 

011474 
011564 
011575 
011630 
011665 



000241 
000401 
000261 
000207 

120 
045 
04 
056 
124 



122 
116 
040 
056 
105 



117 
045 
124 
056 
123 



551: 
60$: 



CLC 
BR 
SEC 
RTS 



DEBUGMSG: 
PERCM: .ASCII 



ERCM: 

SIMSG: 

TINERR- 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 



60$ 
PC 



} SET FAILURE 

) 

jSET SUCCESS 
j RETURN 



.ASCIZ 'PROGRAM INTERNAL ERROR -CKMSG2 MESSAGE BUFFER EXCEEDED- ' {35)0 
/rflsWA ***/ 

/ TSSR ERROR CODE REC'D - / 

/ AFTER DOING SOFT INIT/ 

/TEST: .../ 



N5 



TZTKGA TK-25 FRT END FUNC $3 MACRO M1200 
CKMSG2 - COMPARE EXPO RECV MESSAGE BUFFERS 



2294 

2295 
2296 
2297 
2298 
2299 

2roo 

2501 
2302 
2503 
2304 
2305 
2306 
2307 
2308 
2309 
2310 
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SEQ 65 



2311 

2312 
2313 



2314 
2315 
2316 
2317 
2318 
2319 
2?20 
2321 
2322 
2323 
2324 
2325 
2326 

2327 
23?8 
2329 
2330 
2331 
2332 
2333 



2334 
2335 
2336 
255/ 
2338 
2339 
2340 
23*1 
J 30 2 
2 34 3 
2344 



w i.1676 
011676 
011676 
011702 
011706 
011706 
011706 



004737 
004737 



104423 



005264 
020170 



011710 
011710 
011710 
011714 
011720 
011724 
011730 
011732 
011736 
011736 
011736 



004 7 37 

012700 
004 737 
013700 
005001 
004 737 



104423 



005264 
OC0OO4 
0070/6 
002716 

014072 



P*UNT ROUTINE TO FATAL SOFT INIT ERRORS 
INPUf: 

Rl CONTENTS OF TSSR AT ERROR 
SIDE EFFECTS: 

EXECUTES DROP UNIT TO CEASE TESTING 



SFIMSG;: 



BGNMSG SFIMSG 



L 10003: 



JSR 
JSR 
ENOMSG 

TRAP 



PC.PRTTSSR 
PC.CKDROP 



CIHSG 



jPRINT CONTENTS OF TSSR REGISTER 
I DROP UNIT, IF ALLOWED 



PRINT ROUTINE TO PRINT THE CONTENTS OF 

TSSR ANC A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET 



INPUTS: 



Rl 
R4 



TSSR CONTENTS 

ADDRESS OF COMMAND PACKET 



BGNMSG PKTSSR 



PKTSSRm 




JSR 


PC.PRITSSR 


MOV 


*4,R0 


JSR 


PC.PRIPKT 


MOV 


MCSBFA.RO 


CLR 


Rl 


JSR 


PC.PRMESS 


ENOMSG 





j PRINT TKc- CONTENTS OF TSSR REGISTER 
{NO. OF UO^OS iN PACKET 
j PRINT THE CONTENTS OF COMMAND PACKET 
.ADDRESS OF 'tSSACE BUFFER 



j ASSUME NO 
j PRINT THE 



HICH MFHOGi 
MESSAGE BUFFER ALSO 



1.10004 



TRAP 



CiMSG 



;PRINT ROUTINE TO PRINT THE CONTENTS OF 
jTSSR AND A GET STATUS COMMAND PACKET. 



} 



{INPUTS: 



Rl 
R4 



TSSR CONTENTS 

ADDRESS OF COMMAND PACKET 



B6 



C/TKGA TK-25 FRT ENO FUNC #3 MACRO 

CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 



2545 
2546 

2547 
2548 
2549 
2550 



2551 
2552 
2553 
2554 
2555 
2556 
2357 
2556 
2559 
2560 
2561 
2562 

2563 
2564 



2565 
2566 

2567 
2566 
2569 

2570 
2571 
2372 

2373 
2374 
2575 
2576 
2377 
2375 
2379 
2360 

2561 
2562 
2563 

2564 

2565 



2536 



011740 
011740 
011740 
011744 
011750 
011754 
011754 
011754 



011756 
011756 
011756 
011762 
011762 
011762 



011764 
011764 
011764 
011770 
011772 
011774 
012000 
012000 
012000 



004737 005264 
012700 000002 
004737 007076 



104425 



200 20-APR-84 
ERS 


08 i 13 PAGE 49-1 


BGNMSG 


PKTGETS 


PKTGETSn 




JSR 


PC.PRITSSR 


MOV 


♦2.R0 


JSR 


PC.PRIPKT 


ENOMSG 




L 10005i 




TRAP 


C»MSG 



SEQ 66 



iPRINT THE CONTENTS OF TSSR REGISTER 
|N0. OF WOROS IN GET STATUS PACKET 
iPRINT THE CONTENTS OF COMMAND PACKET 



PRINT TSSR ERRORS FQfl INITIALIZATION TESTS 
INPUTS i 



Rl 
R4 



TSSR CONTENTS 

ADDRESS OF COMMANO PACKET 



004737 005264 



104423 



SFFMSGu 



LlOOOfci 



BGWSG SFFMSG 

JSR PC.PRITSSR 
ENDMSG 

TRAP CIMSG 



iPRINT CONTENTS OF TSSR REGISTER 



,S8TTL PKTMES - PRINT TSSR AND MESSMGE BUFFER 



PRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE 
BUFFER FOR ERROR REPORTS 



INPUTS j 



Rl CONTENTS OF TSSR 

R2 LOW OROCR MESSAGE BUFFER 

R5 HIGH OROER MESSAGE BUFFER ADDRESS 

NOTE: R5 IS IGNORED IF KTENA8LE FLAG IS CLEAR 



BGT#1SG PKTMES 







PKTMESll 




004757 


005264 


JSR 


PC.PRITSSR 


010200 




MOV 


R2.R0 


010501 




MUV 


R3.R1 


004737 


Q14Q72 


JSR 
ENDMSG 


PCPRMESS 



iPRINT CONTENTS OF TSSR 
it.OW OROER ADOftESS 
i HIGH ORDER ADDRESS 
iPRINT Xm MESSAGE BUFFER 



104425 



LX0007i 



TRAP CIMSG 



C6 



SEQ 67 



2388 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 
2398 
2399 
2400 

2401 
2402 
2403 
2404 



2405 
2406 
2407 
2408 
2409 
2410 
2411 
2412 
24)3 
2414 
2415 
2416 
2417 
2418 
2419 

2420 
2421 
2422 



2423 
2424 



012002 
012002 
012002 
012006 
012012 
012016 
012O16 
012016 



012020 
012020 
012020 
012024 

012030 
012030 
012030 



.SBT1L ADDSSR - PRINT TEST ADDRESS ANO TSSR 

PRINT ROUTINE TO PRINT THE CONTENTS OF 
TSSR AND A MEMORY TEST ADDRESS 



INPUTS) 



R5 FIRST DEVICE UNIBUS ADDRESS 
ERRHI HIGH ORDER MEMORY TEST ADDRESS 
ERRLO LOW ORDER MEMORY TEST ADDRESS 



004737 010032 
016501 OOOOOO 
004737 005264 



104423 



ADDSSRn 



BGNMSG ADOSSR 



L10010: 



JSR 
MOV 
JSR 
ENDMSG 

TRAP 



PC.PRITADD 

TSSRCR5),R1 

PC.PRITSSR 



C»MSG 



iPRINT MEMORY TEST ADDRESS 

iGET CURRENT TSSR 

I PRINT THE CONTENTS Of TSSR REGISTER 



.SBTTL MSGEXP - PRINT WRITE CHAR, EXPD-RECV MESSAGE BUFFERS 

PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 
IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIAOO- RECEIVED MESSAGE BUFFER HIGH ORDER AODRESS 

RCVLOAOO- RECEIVED MESSAGE BUFFER LOU ORDER ADDRESS 



BGNMSG MSGEXP 



012700 000007 
004737 015436 



104423 



MSGEXP t i 




MOV 


♦7.R0 


51: JSR 


PC.PRMSGEXP 


ENDMSG 




LlOOllt 





lASSUS NO EXT FEATURES 

jHRINT EXPD/RECV MESSAGE BUFFERS 



TRAP 



CIM3G 



D6 



SEQ 66 



2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2438 

2439 



2440 



2441 
2442 
2443 



2444 
2445 

2446 
2447 



012032 
012032 
012032 
012032 
012034 
012040 
012044 
012046 
012050 
012054 
012054 
012060 
012064 
012066 
012070 
012074 
012076 
012102 
012102 
012102 
012104 
012153 



010146 
012746 
012746 
010600 
104415 
062706 

012746 
012746 
010600 
104415 
062706 
010100 
0O4737 



104423 
045 
045 



.SBTTL FIFEXP - PRINT FIFO EXP/RECV DATA 



PRINT ROUTINE TO PRINT FIFO EXP/RECV DATA 



Rl 



- BYTE COUNT 



IMPLICIT INPUTS; 



012104 
000002 



000006 

012153 
000001 



000004 
016006 



116 
116 



EXPMSG - EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY 
RECMSG - RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY) 



FIFEXP; } 



BGNMSG FIFEXP 



045 
045 



L10012: 

FIFIMSGj 
FIF2MSG: 



PRINTX 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADO 

MOV 

JSR 

ENDMSG 

TRAP 



.EVEN 



#FIF1MSG,R1 

Rl.-CSP) 

♦FIF1MSG,-CSP) 

#2, -ISP) 

SP.RO 

CIPNTX 

#6.SP 

#fIF2MSG 

#fIF2MSG,-(SP) 

♦l.-( IP) 

SP.RO 

CIPNTX 

04. SP 

Rl.RO 

PC.PRBYTEXP 



I PRINT BYTES TRANSFERRED 



I PRINT HEADER MSG 



|GET BYTE COUNT 

iPRINT FIFO BYTES IN ERROR 



CIMSG 

.ASCIZ 

♦A5CIZ 



•#N*A 



NUMBER OF 
FIFO DATA 



BYTES TRANSFERRED 
BYTES IN ERROR:' 



*D2 



CZTKGA TK-25 FRT END FUNC 03 MACRO M1200 20-APR-84 08} 13 
MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 



E6 

PAGE 52 



SEQ 69 



2449 

2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2460 
2461 
2462 

2463 
2464 
2465 
2466 



2467 
2468 
2469 

2470 



2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
2491 
249? 
2493 
2494 
2495 
2496 
2497 



012212 
012212 
012212 
012216 
012220 
012222 
012222 
012224 
012230 
012232 
012234 
012240 
012242 
012246 
012252 
012252 
012252 

012254 
012272 



012334 
012425 
012516 
012607 
012651 



♦SBTTL MSGSTAT - PRINT STATUS HEADER ANO MESSAGE BUFFERS 

f 

PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 

IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



012701 
012100 
001410 

010046 
012746 
010600 
104415 
062706 
000766 
012700 
004737 



104423 

012272 
045 



045 
045 
045 
045 
045 



012254 



000001 



000004 

000012 
015436 



012334 
116 



116 
116 
116 
116 
116 



MSGSTAT; 
10$: 



BGNMSG MSGSTAT 



20$ 



L10013: 



MOV 

MOV 

BEQ 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADO 

BR 

MOV 

JSR 

ENDMSG 

TRAP 



♦STATC0O.R1 

(R1)*.R0 

20$ 

RO 

RO.-CSP) 

♦1,-CSP) 

SP.RO 

C$PNTX 

♦4.SP 

10$ 

♦10..R0 

PC.PRMSGEXP 



C$MSG 



I ASCII ADORESS TABLE 
tDONE ALL MSG LINES? 
I BR IF YES 
I PRINT STATUS BIT NAMES 



iDO ANOTHER MSG LINE 

l NUMBER OF WORDS IN A READ STATUS BUFFER 

I PRINT EXPD/RECV MESSAGE BUFFERS 



012425 
045 



045 
045 
045 
045 
045 



STATCOO: .WORD 1$,2$ .3$ .4$ ,5$ ,6$ ,0 

1$:.ASCIZ '*N*A Tap* Bus Sisals in Word 48:' 

2$:.ASCIZ '#N#A PARERR<15> IEOT <12> IFMK <9> 

3$:.ASCIZ »*N*A IRESV2<14> IIDENT<11> IHER <8> 

4$:,ASCIZ '*N*A IRESV1<13> ICER <10> ISPEED<7> 

5$:.ASCIZ '*N#A Tap* Bua Signals in Word #9:' 

6$:.ASCIZ **N*A DATMIS<7> ILW<6> 0UTRDY<5> INRDY<4> 
.EVEN 



IRDY<6> 
I0NL<5> 
ILDP<4> 



IRW0<2>' 
IFBY<1>' 
IFPT<0>' 



012726 



.SBTTL MSGLOOP - PRINT LOOPBACK HEADER ANO MESSAGE BUFFERS 

♦ 

PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 

BGNMSG MSGLOOP 



F6 



CZTKGA TK-25 FRT END FLNC 03 MACRO M1200 20-APR-84 08*13 
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2498 
2499 
2500 
2501 



2502 
2503 
2504 
2505 



2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 



012726 
012726 
012732 
012734 
012736 
012736 
012740 
012744 
012746 
012750 
012754 
012756 
012762 
012766 
012766 
012766 

012770 
013010 
013063 
013162 
013261 
013360 
013457 
013556 



012701 
012100 
001410 

010046 
012746 
010600 
104415 
062706 
000766 
012700 
004737 



104423 

013010 
045 
045 
045 
045 
045 
045 
045 



012770 



000001 



000004 

000012 
015436 



013063 
116 
116 
116 
116 
116 
116 
116 



013162 
045 
045 
045 
045 
045 
045 
045 



MSGLOOP; 
10$ j 



201: 



L10014: 



MOV 

MOV 

BEQ 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADO 

BR 

MOV 

JSR 

ENOMSG 



OL00PC0D.R1 

(R1)»,R0 

201 

RO 

RO.-(SP) 

•1,-CSP) 

SP.RO 

CIPNTX 

04, SP 

10$ 

010., RO 

PC.PRMSGEXP 



TRAP 



CIMSG 



SEQ 70 



lASCII ADDRESS TABLE 
l DONE ALL MSG LINES? 
i BR IF YES 
j PRINT STATUS BIT NAMES 



iDO ANOTHER MSG LINE 

j NUMBER OF WORDS IN A READ STATUS BUFFER 

I PRINT EXPD/RECV MESSAGE BUFFERS 



LOOPCOO: 
11;. ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



21 
31 
4$ 
51 

61 



.WORD 
*>*A Tap* 



7$:. ASCIZ 



*N*A 
awaM 

#N*A 
*N*A 
*N*A 
#N*A 



It, 21, 31,4$, 5$, 61, 71,0 
Boa Loopback Stgnala In Word 08:' 

IRESV2<14> 
IWRT->IIDENT<11> IREV 
IEDIT->IHER <08> IFAD 
ITAD1->I0NL <05> IERASE 
IRWU »>IRWO <02> IFEN 



PARERR<15> 
IHISP->IE0T<12> 
IWFM ->IFMK<09> 
ITAD0">IRDY<06> 
IREW ->ID6Y<03> 
IGO ->IFPT<00> 



IRESV1<13> 
■>ICER <10> 
->ISPEED<07> 
->ILDP <04> 
•>IFBY <01> 



.EVEN 



G6 
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SEQ 71 



2518 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 
2527 
2528 
2529 
2530 
2531 

2532 
2533 
2534 



2535 
2536 
2537 
2538 
2539 
2540 
2541 
2542 
2543 
2544 
2545 
2546 
254 7 
2548 
2549 
2550 
2551 
2552 

2553 
2554 
2555 
2556 
2557 



2558 



013604 
013604 
013604 
013610 
013614 
013614 
013614 



013616 
013616 
013616 
013622 
05.3626 
013632 
013636 
013636 
013636 



♦SBTTL MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 
PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 

IMPLICIT INPUTS} 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



012700 
004737 



104423 



000012 
015436 



MSGSUB:; 



BGNMSG MSGSUB 



L 10015: 



MOV 
JSR 
ENOMSG 

TRAP 



♦10. ,R0 
PC.PRMSGEXP 



C$MSG 



I SIZE OF WRITE SUBSYSTEM BUFFER 
l PRINT EXPD/RECV MESSAGE BUFFERS 



•SBTTL MEMADD - PRINT MEMORY ADDRESS DATA ERROR 

♦ 

PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 

IMPLICIT INPUTS: 

ERRHI - MEMORY ERROR HIGH ORDER ADDRESS 

ERRLO - MEMORY ERROR LOW ORDER ADDRESS 

EXP - EXPECTED DATA 

RECV - RECEIVED DATA 



OC4737 
013701 
013702 
004737 



104423 



007716 
002176 
002200 
007500 



MEMADD: 



BGNMSG MEMADD 



L10016: 



JSR 
MOV 
MOV 
JSR 
ENOMSG 

TRAP 



PC.PRIADD 
EXPD.R1 
RECV,R2 
PC.PRIXOR 



CiMSG 



j PRINT MEMORY ADDRESS IN ERROR 
jGET EXPO DATA 
jGET RECEIVED DATA 
tPRINT EXPD/RECV 



H6 
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SEQ 72 



2560 
2561 
256? 
2563 
2564 
2565 
2566 
2567 
2568 
2569 
2570 
2571 
2572 
2573 
2574 
2575 
2576 
2577 
2578 
2579 
2580 
2581 
2582 
2583 
2584 
2585 
2586 
2587 
2588 
2589 
2590 
2591 
2592 
2593 



2594 
2595 
2596 
2597 
2598 
2599 
2600 
2601 
2602 
2603 
2604 
2605 



013640 
013640 
013644 
013650 
013652 
013654 
013656 
013662 
013666 
013676 
013702 
013710 
013716 
013716 
013720 
013724 
013730 
013732 
013736 
013742 
013744 
013746 
013752 
013754 
013760 
013762 
013766 
013770 
013772 
013776 
014000 
014004 

014006 



012701 
005002 
122124 
001000 
116105 
116403 

042703 
116137 
116437 

010346 
013746 
013746 
010246 
012746 
012746 
010600 
104414 
062706 
005202 
005737 
001404 
020237 
003731 
000403 
020227 
002725 
005037 
000207 
045 



.SBTTL PRAMPKT - PRINT RAM AND PACKET DATA 

♦ 

PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
WHEN THE RAM DATA DOES NOT MATCH, 

INPUTS: 

R4 POINTER TO COMMAND PACKET 

IMPLICIT INPUTS: 



RAMOATA 
RAMSIZ 



DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 
IF RAMSIZ-0 THEN DEFAULT TO 8. 



IMPLICIT OUTPUTS: 

RAMSIZ SET TO 



PRAMPKT: 



002206 



177777 
177777 

177400 
177777 
177777 



002176 
002200 

014006 
000005 



000014 
002246 
002246 

0OOO10 
002246 

116 



5$: 
7$: 



002200 
002176 



10$ 



15v 
201 
25$ 



QA$ RAMASC: 



SAVREG 

MOV 

CLR 

CMPB 

BNE 

MOVB 

MOVB 

XOR 

BIC 

MOVB 

MOVB 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

INC 

TST 

BEQ 

CMP 

BLE 

BR 

CMP 

BLT 

CLR 

RTS 

.ASCIZ 

.EVEN 



♦RAMOATA.Rl 

R2 

CR1)»,CR4)* 

71 

-1CRD.R5 

-1CR4),R3 

R5.R3 

♦177400, R3 

-KRD.RECV 

-1(R4),EXP0 



{SAVE R1-R5 UNTIL NEXT RETURN 

{DATA FROM THE RAM 

tINIT BYTE NUMBER 

^COMPARE EXPECTED, RECEIVED 

I BR IF NO MATCH 

{GET RECV RAM DATA 

{GET EXPD PACKET DATA 

jXOR EXPD/RECV 

{LOW BYTE ONLY 

{GET RECEIVED RAM DATA 

jGET EXPECTED RAM DATA 



♦RAMASC,R2,RECV,EXPD,R3 

R3,-(SP) 

EXPO.-CSP) 

RECV,-(SP) 

R2,~(SP) 

♦RANASC.-(SP) 

♦5,-(SP) 

SP.RO 

CIPNTB 

♦14, SP 

R2 

RAMSIZ 

15$ 

R2, RAMSIZ 

5$ 

25$ 

R2,*8. 

5$ 

RAMSIZ 

PC 

'rfN*A BYTE: 



{UPDATE BYTE COUNT 
{DEFAULT TO 8.? 
j BR IF YES 
{DONE ALL BYTES? 
{BR IF NO 
l 



{DONE DEFAULT NUMBER OF BYTES? 
{BR IF NO 

{SET DEFAULT RAMSIZ 
jRETURN 
*D2*A RAM: *03*A Pack«t: *Q3*A X0R:*Q3' 



16 



CZTKGA TK-25 FRT END FUNC 03 
PRMESS - P&INT CONTENTS OF ME 


2607 








2608 








2609 








2610 








2611 








2612 








2613 








2614 








2615 








2616 








2617 








2618 








2619 








2620 








2621 








2622 








2623 








2624 


014072 






2625 


014072 






2626 


014076 


010537 


011032 


2627 


014102 


010005 




2628 


014104 


005737 


003102 


2629 


014110 


001001 




2630 


014112 


005001 




2631 


014114 


010103 




2632 


011116 


006100 




2633 


014120 


006101 




2634 


014122 








014122 


010546 






014124 


010146 






014126 


012746 


014730 




014132 


012746 


000003 




014136 


010600 






014140 


104415 






014142 


062706 


000010 


2635 


014146 


022715 


177777 


2636 


014152 


001010 




2637 


014154 








014154 


012746 


014650 




014160 


012746 


000001 




014164 


010600 






014166 


104415 






014170 


062706 


000004 


2638 


014174 








014174 


012746 


014775 




014200 


012746 


000001 




014204 


010600 






014206 


104415 






014210 


062706 


000004 


2639 


014214 


005OO4 




2640 


014216 


010501 




2641 


C14220 


010300 




2642 


014222 


001403 




2643 


014224 


004 737 


020304 


2644 


014230 


010005 




2645 


014232 






2646 


014232 







MACRO M120 

;age buffer 
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SEQ 73 



♦SBTTL PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 



THIS ROUTINE PRINTS THE CONTENTS OF 

THE 7 WORD MESSAGE BUFFER RETURNED BY THE 

TK-25, 



INPUT; 



RO LOW ORDER ADDRESS OF MESSAGE BUFFER 
Rl HIGH ORDER ADDRESS OF MESSAGE BUFFER 
NOTE? Rl IS IGNORED IF KTENABLE FLAG IS CLEAR 



i THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 

J 



PRMESS; 



10$: 



15*; 



20*: 



SAVRLG 

MOV R5,RAMR5H 

MOV R0.R5 

TST KTENABLE 

BNE 10$ 

CLR Rl 

MOV R1.R3 

ROL RO 

ROL Rl 

PRINTX OPROASC,R1,R5 

MOV R5.-CSP) 

MOV Rl.-CSP) 

MOV tPROASC.'(SP) 

MOV 03,-CSP) 

MOV SP.RO 

TRAP CIPNTX 

ADD 010, SP 

CMP #177777, (R5) 

BNE 15$ 

PRINTX OtIESBFN 

MOV OtiESBFN.-CSP) 

MOV Ol.-(SP) 

MOV SP,RO 

TRAP C$PNTX 

ADO #4 , SP 

PRINTX 0PR1ASC 

MOV OPRIASC.-(SP) 

MOV 01, (SP) 

MOV SP.RO 

TRAP C$PNTX 

AOD 04, SP 

CLR R4 

MOV R5.R1 

MOV RS.RO 

BEQ 20$ 

JSR PC.SETMAP 

MOV R0.R5 



j SAVE THE REGISTERS 

j SAVE DEVICE REGISTER POINTER 

I SAVE LOW ORDER ADDRESS 

\ ADDRESS ABOVE 28K? 

i BR IF YES 

I SET HIGH ORDER ADDRESS TO 

j SAVE HIGH ORDER ADDRESS 

jSHIFT BIT15 TO C BIT 

\ SHIFT TO HIGH ORDER FOR PRINTOUT 

l PRINT MESSAGE BUFFER ADDRESS 



jMESSAGE BUFFER FULL OF ONES 

iBR IF BUFFER IS PROBABLY OKAY 

j "MESSAGE BUFFER PROBABLY NOT VALID" 



jPRINT HEADER FOR CONTENTS 



jNUMBER OF THE NEXT WORD 

j COPY LOW ORDER ADDRESS 

lCOP\ HIGH ORDER ADDRESS 

i BR IF NOT ABOVE 28K 

I SETUP PAR ADDRESS IN RO 

iGET PAR FORMAT ADDRESS ABOVE 28K 



PRINTX 0MESHEA,(R5)* jPRINT "MESSAGE BUFFER HEADER - 



CZTKGA TK-25 FRT END FUNC 03 MACRO M1200 

PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 





014232 


012546 






014234 


012746 


015033 




014240 


012746 


000002 




014244 


010600 






014246 


104415 






014250 


062706 


000006 


264? 


014254 








014254 


012546 






014256 


012746 


015100 




014262 


012746 


000002 




014266 


010600 






014270 


104415 






014272 


062706 


000006 


2646 


014276 








014276 


012546 






014300 


012746 


015145 




014304 


012746 


000002 




014310 


010600 






014312 


104415 






014314 


062706 


000006 


2649 


014320 








014320 


012546 






014322 


012746 


015212 




014326 


012746 


000002 




014332 


010600 






014334 


104415 






014336 


062706 


000006 


2650 


014342 








014342 


012546 






014344 


012746 


015257 




014350 


012746 


0OOO02 




014354 


010600 






014356 


104415 






014360 


062706 


000006 


2651 


014364 








014364 


012546 






014366 


012746 


015324 




014372 


012746 


000002 




014376 


010600 






014400 


104415 






01440i? 


062706 


000006 


2652 


014406 








014406 


012546 






014410 


012746 


015371 




014414 


012746 


000002 




014420 


010600 






014422 


104415 






014424 


062706 


00OO06 


2655 


014430 


022737 


000001 002134 


2654 


014436 


ooi4o: 




2655 


014440 


0O013 


014550 


2656 


014444 








014444 


012746 


014552 




014450 


012746 


000001 




014454 


010600 






014456 


104415 






014460 


062706 


000004 



40$ 





J6 


APR -84 


08:13 PAGE 55- 


MOV 


<R5)*.-(SP) 


MOV 


OMESHEA.-(SP) 


MOV 


02,~(SP) 


MOV 


SP.RO 


TRAP 


CIPNTX 


AOD 


06.SP 


PRINTX 


00ATAFL.CR5)* 


MOV 


CR5)+,-CSP) 


MOV 


OOATAFL.-CSP) 


MOV 


02,-CSP) 


MOV 


SP.RO 


TRAP 


CIPNTX 


ADD 


06, SP 


PRINTX 


0RBPCRA.CR5)* 


MOV 


(R5)*,-CSP) 


MOV 


0R8PCRA.-CSP) 


MOV 


02,-CSP) 


MOV 


SP.F.O 


TRAP 


CIPNTX 


ADO 


06, SP 


PRINTX 


0XS0C0N.CR5)* 


MOV 


CR5)*,-CSP) 


MOV 


OXSOCON.-(SP) 


MOV 


02,-CSP) 


MOV 


SP.RO 


TRAP 


CIPNTX 


ADD 


06, SP 


PRINTX 


♦XSlC0N,CR5)f 


MOV 


CR5)».-(SP) 


MOV 


0XS1C0N.-CSP) 


MOV 


02,-CSP) 


MOV 


SP.RO 


TRAP 


CtPNTX 


ADO 


06, SP 


PRINTX 


0XS2C0N.CR5)* 


MOV 


(R5)f,-(SP) 


MOV 


0XS2C0N.-CSP) 


MOV 


02,-CSP) 


MOV 


SP.RO 


TRAP 


CIPNTX 


ADD 


06,SP 


PRINTX 


OXS3CON.CR5)* 


MOV 


(R5)».-(SP) 


MOV 


0XS3C0N.-CSP) 


MOV 


02,-CSP) 


MOV 


SP.RO 


TRAP 


CIPNTX 


ADD 


06, SP 


CMP 


Ol.TRANSTST 


BEQ 


401 


JflP 


501 


PRINTX 


ORAMFHR 


MOV 


ORAMFHR, -(SP) 


MOV 


01,-CSP) 


MOV 


SP.RO 


TRAP 


CIPNTX 


ADD 


04, SP 



SEQ 74 



j PRINT "DATA FIELD LENGTH 



I PRINT "RESIDUAL BYTE COUNTER - 



>PRINT "XSTATO CONTENTS 



I PRINT "XSTAT1 CONTENTS 



jPRINT "XSTAT2 CONTENTS 



{PRINT "XSTAT3 CONTENTS 



jCHtCK FOR RAM DUMP REQUIRED 
i BR, IF DUMP REQUIRED 
I NO DUMP 



I<6 
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SEU 75 



2657 
2658 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
2667 
2668 
2669 
26 70 
2671 
2672 
2673 
2674 
2675 
2676 
2677 
2678 
2679 
2680 



014464 
014472 
014500 
014504 
014512 
014516 
014524 
014530 
014536 
014544 
014550 
014552 
014650 
014730 
014775 

015033 
015100 
015145 
015212 
015257 
015324 
015371 



012737 

012737 

004737 

012737 

004737 

012737 

004737 

012737 

012737 

004 737 

000207 

045 

045 

045 

045 

045 
045 
045 
045 
045 
045 
045 



00001C 
000020 
010646 
000040 
010646 
000060 
010646 
000020 
000100 
010646 

116 
116 
116 
116 

116 
116 
116 
116 
116 
116 
116 



002246 
011030 

011030 

011030 

002246 
011030 



045 
045 
045 
045 

045 
045 
045 
045 
045 
045 
045 



50$: 

RAhFHR 

MESBFN 

PROASC 

PR1ASC 

MESHEA 
DATAFL 
RBPCRA 
XSOCON 
XS1C0N 
XS2C0N 
XS3C0N 



MOV 

MOV 

JSR 

MOV 

JSR 

MOV 

JSR 

MOV 

MOV 

JSR 

RTS 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

. ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 



*3. .RAMSIZ 
♦20.RAMMLD 
PCRAMER 

♦40.RAMHLD 

PCRAMER 

#SO,RAMHLD 

PCRAMER 

*16..RAMSIZ 

♦100.RAMHLD 

PCRAMER 

PC 

'#N#A ******* 

•#N#A MESSAGE 

«CN#A Mecsaoe 

•#N#A Message 



{RAM FIELD IS 8 BYTES LONG 

tFIELD STARTS AT 20 OCTAL CIO HEX) 

j READ AND PRINT THEM 

iFIELD STARTS AT 40 OCTAL C20 HEX) 

I READ AND PRINT THEM 

iFIELD STARTS AT 60 OCTAL C3C HEX) 

l READ AND PRINT THEM 

,RAM FIELD IS SIXTEEN BYTES LONG 

I FIELD STARTS AT 100 OCTAL (40 HEX) 

i READ AND PRINT THEM 

jRETURN 
*** SPECIAL CONTROLLER RAM MEMORY DUMP ********** 
BUFFER CONTENTS PROBABLY NOT VALID' 
Buffer Addres* - *01#05' 
Buffer Contents: ' 



•#N#A Message Buffer Header 

'#N#A Data Field Length 

'#N#A Residual Byte Counter 

•#N#A XSTATO Contents 

'#N#A XSTAT1 Contents 

'#N#A XSTAT2 Contents 

•#N#A XSTAT3 Contents 



i*06' 
#06' 
#06' 
#06' 
#06' 
#06' 
#06' 



L6 



CZTKGA TK-25 FRT END FUNC *5 MACRO M1200 
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2682 
2683 
2684 
2685 
2686 
2687 
2688 
2689 
2690 
2691 
2692 
2693 
2694 
2695 
2696 
2697 
2698 
2699 
2700 
2701 
2702 
2703 
2704 



2705 



2706 
2707 
2708 
2709 
2710 
2711 
2712 



2713 
2714 

2715 
2716 
2717 



015436 
015436 
015442 
015444 
015450 
015452 
015456 
015460 
015462 
015462 
015464 
015466 
015472 
015476 
015500 
015502 
015506 
015506 
015512 
015516 
015520 
015522 
015526 
015530 
0155.34 
015540 
015542 
015544 
015554 
015554 
015556 
015560 
015562 
015564 
015570 
015574 
015576 
015600 
015604 
015606 
015610 
015612 
015614 



010005 
013700 
010004 
013701 
006100 
006101 

0J.O4',6 
010146 
012746 
012746 
010600 
104415 
062706 

012746 
012746 
010600 
104415 
062706 
005004 
012701 
012702 
011100 
011203 



010346 
012246 
012146 
010446 
012746 
012746 
010600 
104415 
062706 
005204 
020405 
002001 
000/52 
000207 
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•SBTTL PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 



SEQ 76 



002252 
002250 



;*[B 

i ROUTINE TO PRINT EXPECTED ANO RECEIVED MESSAGE BUFFERS 

J 

I RO - NUMBER OF WORDS IN BUFFER 

IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



I SAVE R1-R5 UNTIL NEXT RETURN 

I SAVE NUMBER OF WORDS 

»GET RECV LOW ADDRESS 

j COPY LOW ADDRESS 

{GET RECV HIGH ADDRESS 

j SHIFT BIT15 TO C BIT 

j SHIFT TO HIGH ORDER FOR PRINTOUT 

t PRINT MESSAGE BUFFER ADDRESS 



015616 
000003 



000010 

015663 

000001 



O00OO4 



002266 
002432 



015721 
000005 



000014 



PRMSGEXP 5 ; 




SAVREG 




MOV 


R0.R5 


MOV 


RCVLOADD, RO 


MOV 


R0.R4 


MOV 


RCVHIADD, Rl 


ROL 


RO 


ROL 


Rl 


PRINTX 


*PRMSG0,R1.R4 


MOV 


R4.-CSP) 


MOV 


Rl.-(SP) 


MOV 


♦PRMSGO.-CSP) 


MOV 


#3,-(SP) 


MOV 


SP.RO 


TRAP 


C*PNTX 


ADD 


010.SP 


PRINTX 


♦PRMSG1 


MOV 


#PRMSC1,-(SP) 


MOV 


♦1,-CSP) 


MOV 


SP.RO 


TRAP 


C*PNTX 


ADD 


♦4.SP 


CLR 


R4 


MOV 


♦EXPMSG, Rl 


MOV 


•RECMSG, R2 


20$: MOV 


(RD.RO 


MOV 


(R2),R3 


XOR 


R0.R3 


PRINTX 


*PRMSG2,R4,(R1)* 


MOV 


R3.-CSP) 


MOV 


CR2)*.-CSP) 


MOV 


(R1)*.-(SP) 


MOV 


R4.-CSP) 


MOV 


*PRMSG2, -CSP) 


MOV 


•5 , - C SP ) 


MOV 


SP.RO 


TRAP 


CfPNTX 


ADD 


G14.SP 


INC 


R4 


CMP 


R4.R5 


BGE 


50* 


BR 


20* 


50*: RTS 


PC 



t PRINT HEADER FOR CONTENTS 



j NUMBER OF THE CURRENT WORD 

f GET EXPD BUFFER ADDRESS 

j GET RECV BUFFER ADDRESS 

;GET EXPD 

} GET RECV 

j XOR EXPD/RECV 

,(R2)f ,R3 



I NUMBER OF THF NEXT 
I DONE ALL YET? 
j BR IF YES 
I DO ANOTHER 
{RETURN 



CZTKGA TK-2J 
PRMSGEXP - j 



» FRT 
■RINT 



2716 

2719 015616 

2720 015663 

2721 015721 
2722 

2723 



M6 



•NR FUNC $3 MACRO M1200 
:XPD/RECV MESSAGE BUFFERS 



20-APR-84 08:13 PAGE 56-1 



SEQ 77 



045 
045 
045 



116 
116 
116 



045 PRMSGO 
045 PRMSG1 
045 PRMSG2 



.ASCIZ 
.ASCI7 

.Asnz 

.EVEN 



•*N*A Message Buffer Address - *01*05' 

'*N*A Messaae Buffer Contents:' 

'*N*A WORD 4*Da*A EXPD: *06*A RECV: *06*A 



XOR: *06' 



N6 



CZTKGA TK-25 FRT END FUNC *3 MACHO M1200 20-APK-84 08? 13 
PRBYTF.X> - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 



PAGE 57 



SEQ 78 



2725 








2726 








2727 








2726 








2729 








2730 








2/31 








2732 








2733 








2751 








2735 








2736 








2737 








2738 


016006 






2/39 


016006 






2/40 


016012 


010005 




2741 


016014 


005037 


002264 


2742 


016020 


005004 




2743 


016022 


012701 


002266 


2744 


016026 


012702 


002432 


2745 


016032 


111100 




2746 


016054 


042700 


177400 


2747 


016040 


110037 


016354 


2748 


016044 


111203 




2/49 


016046 


042703 


177400 


2 7 SO 


016052 


110337 


016356 


2751 


016056 






2752 


016066 


122122 




2753 


016070 


001431 




2 754 


016072 


005237 


002264 


2755 


016076 


023727 


002264 000010 


2/56 


01C104 


101023 




2 7S7 


016106 








016106 


010546 






016110 


013746 


016356 




016114 


013746 


016354 




016120 


010446 






016122 


012 746 


016222 




016126 


012746 


000005 




016132 


010600 






016134 


104415 






016156 


062706 


000014 


2 758 


07.6142 






2/59 


016152 


000404 




2/60 


016154 






2/61 


016154 






? 762 


016164 






2 763 


016164 


005204 




2/64 


016166 


020405 




2/65 


016170 


002001 




2766 


016172 


000717 




2767 


016174 








016174 


013746 


002264 




016200 


012746 


01630/ 




016204 


012 746 


000002 




016210 


010600 






016212 


104415 





.SBTTL PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 

{ ♦ 

! ROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 

5 ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 



1 


RO 


- NUMBER OF BYTES IN BUFFER 


! IMPLICIT INPUTS: 




i 


EXPMSG 


- EXPECTED MESSAGE BUFFER 




RECMSG 


- RECEIVED MESSAGE BUFI-'ER 


PRBYTEXP: j 








SAVREG 




j SAVE R1-R5 UNTIL NEXT RETURN 




MOV 


R0,R5 


iSAVE NUMBER OF BYTES 




CLR 


PRMNO 


iINIT ERROR COUNT 




CLR 


R4 


l NUMBER OF THE CURRENT BYTE 




MOV 


*KXPMSG,R1 


j GET EXPO BUFFER ADDRESS 




MOV 


•W-CMSG.R2 


iGET REC/ BUFFER ADDRESS 


20*: 


MOVB 


(R1),R0 


»GET EXPO BYTE 




BIC 


«tC<377>,RO 


iCLfcAR UPPER BYTE 




MOVB 


RO, PRBEXP 


;SAVE FOR ERROR REPORT 




MOVB 


(R2),R3 


;GET RECV BYTE 




BIC 


#tC<377>.R3 


; CLEAR UPPER BYTE 




MOVB 


R3, PRBREC 


;FOR ERROR REPORT 




XOR 


R0,R3 


jXOR EXPD/RECV 




CMPB 


CR1)*,CR2)» 


jEXPD - RECV? 




BEQ 


30$ 


j BR IF YES 




INC 


PRMNO 


i UPDATE ERROR COUNT 




CMP 


PRMNO, *8. 


jPRINTED 8? 




BKI 


30$ 


iBR IF YES 


27*: 


PRINTX 


♦PRBMSG . R4 , PRBEXP , PRBREC , R3 




MOV 


R3,~(SP) 






MOV 


PRBREC , - ( SP ) 






MOV 


PRBEXP, -CSP) 






MOV 


R4.-C5P) 






MOV 


♦PRBMSG. -(SP) 






MOV 


#5 , C SP ) 






MOV 


SP,R0 






T9AP 


C$PNTX 






ADO 


#14, SP 






rORCEXXT 50$ 


;WJO 




6» 


35$ 


(Sao 


30$: 










FORCERROR 27I.N0TSSR 


iSWO 


35$: 






l&tt) 




INC 


R4 


jNUMBER OF The NEXT 




CMP 


R4.R5 


;DONE ALL YET? 




BGE 


50$ 


i BR IF YES 




OR 


20$ 


; DO ANQTHfcR 


50$: 


PRINTX 


♦PRBTOT, PRMNO 


I PRINT TOTAL ERROR COUNT 




MOV 


PRMNO, (SP) 






MOV 


♦PRBTOT, -(SP) 






MOV 


♦2, -(SP) 






MOV 


SP.RO 






TRAP 


C$PNTX 





B7 



C2TKCA TK-25 FRT ENO TUNC #3 MACRO M1200 20-APR-S4 06113 

PRBYTEXP - PRINT ERROR BYVES IN EXP/REC MESSAGE BUFFER 



PAGE 57-1 



SEQ 79 



016214 
2766 016220 
2769 

2770 016222 

2771 016307 
2772 

2773 016354 

2774 016356 
2775 



062706 
000207 

045 
045 

000000 

oooooo 



000006 



116 

116 



045 

045 



PRBMSGt 
PRBTOTi 

PRBEXPj 

PRBRECi 



ADO 

RTS 

.ASCIZ 

.ASCIZ 

.EVEN 

.WORD 

.WORD 



#6,SP 
PC 



tft**A BYTE 
#N*A NUMBER 








i RETURN 

#*02*A EXPDt #03*A 
Of BYTES IN ERROR - 

lEXPO 

iRECV 



RECVt *03#A xOfti #03' 

mos 1 



CZTKGA TK-25 TRT END KUNC #3 MACRO M1200 

EXPREC - PRINT EXPD/RECV WORD DATA 



20- APR -84 08 i 13 



C7 

PAGE 58 



SEQ 80 



2777 
2778 
2779 
2f80 
2781 
2782 
27B3 
2784 
2785 
2786 
2787 
2 788 

2789 016360 
016360 

2790 016360 004737 007500 

2791 016364 
016364 
016364 104423 



.SBTTL EXPREC - PRINT EXPD/RECV WORD DATA 



PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
INPUTS: 



Rl 
R2 



RECEIVED DATA 
EXPECTED DATA 



EXPREC? j 



110017: 



BGNMSG EXPREC 

JSR PC.PRIXQR 

ENDHSG 



iPRINT THfc DATA 



TRAP 



CIMSG 



2793 



£«C TK -fM T E^« g?TE »m*° 



D7 



2795 
2796 
2797 

279C 
2 799 

2600 
2801 
2802 
2803 
2804 
2805 
2806 
2807 
2808 

2809 
2810 



2811 
2812 
2813 
2814 
2815 
2816 
2817 
2818 
2819 
2820 
2821 
2822 
2823 
2824 
2825 
2826 
2827 
2628 
2829 
2830 
2831 
2832 
28j3 
2834 
2835 

2836 
2837 



2858 
2839 

2840 
2841 
2842 
2843 
2844 
2845 



016366 

016366 

016366 004737 007350 

016372 

016372 

016372 104423 



016374 

016374 

016374 0O4737 013640 

016400 

016400 

016400 104423 



M1200 20-APR-84 08:13 PAGE 59 

♦SBTTL EXPBREC - PRINT EXPD/RECV BYTE DATA 
PRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA 



SEQ 81 



INPUTS; 



Rl 
R2 



RECEIVED DATA BYTE 
EXPECTED DATA BYTE 



BGNMSG EXPBREC 
EXPBREC:: 

JSR PC.PRIBXOR 
ENDMSG 

L 10020: 

TRAP CtMSG 



l PRINT THE DATA 



.SBTTL RAMERR - PRINT RAM AND PACKET DATA 

♦ 

PRINT ROUTING TO DISPLAY RAH/PACKET DATA 
INPUTS: 

R4 POINTER TO COMMAND PACKET 
IMPLICIT INPUTS: 



RAMOATA 
RAMSIZ 



DATA AS READ FROM THE RAM 
NUMBER Of BYTES IN r ACKET 
IF RAMSIZ -0 THEN DEFAULT TO 8. 



IMPLICIT OUTPUTS: 

RAMSIZ SET TO 



RAMERR:: 



I 10021: 



i » 

I 



BGNMSG RAMERR 

JSR PC.PRAMPKT 
ENDMSG 



jPRINT RAM/PACKET DATA 



TRAP 



CIMSG 



.SBTTL RAMTADD - PRINT TEST ADDRESS, RAM ANQ PACKET DATA 



iPRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
I INPUTS: 



CZTKGA TK-25 FRT ENO FUNC *3 MACRO M1200 20-APR-84 08:13 
RAMTADD - PRINT TEST ADDRESS, RAM AND PACKET DATA 



E7 



PAGE 59-1 



SEQ 82 



2846 
2847 
2848 
2849 
2850 
2851 
2852 
2853 
2854 
2855 
2856 
2857 
2858 
2859 
2860 
2861 
2862 

2863 
2864 
2865 



2866 
2867 
2868 
2869 
2870 
2871 
2872 
2873 
2874 
2875 
2876 
2877 
2878 
2879 
2880 

2881 
2882 
2883 
2884 
2885 



2886 

2887 
2888 
2889 
2890 
2891 
2892 
2893 
2894 
2895 
2896 



R4 POINTER TO COMMAND PACKET 
IMPLICIT INPUTS; 



RAMOATA 

RAM5I2 

ERRHI 
ERRLO 



DATA AS READ FROM THE RAM 

NUMBER OF BYTES IN PACKET 

IF RAMSIZ-0 THEN DEFAULT TO 8. 

HIGH ORDER TEST ADDRESS 

LOW ORDER TEST ADDRESS 



IMPLICIT OUTPUTS; 

RAMSIZ SET TO 



016402 
016402 
016402 
016406 
016412 
016412 
016412 



004737 010032 
004737 013640 



104423 



BGNMSG 

RAMTADD;: 

JSR 
JSR 
ENDMSG 

L 10022; 

TRAP 



RAMTADD 

PC.PRITADD 
PCPRAMPKT 



CIMSG 



iPRINT TEST ADDRESS 

I PRINT RAM/PACKET DATA 



t SBTTL RAMEXP - PRINT RAM EXPD/RECV DATA 

♦ 

PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
INPUTS; 



Rl 
R2 
R4 



RECEIVED DATA 
EXPECTED DATA 
CONTROLLER RAM ADDRESS 



016414 
016414 
016414 
016420 
016424 
016430 
016434 
016434 
016434 



042701 177400 

042702 177400 
004737 007624 
004737 007500 



104423 



RAMEXP: 



BGNMSG RAMEXP 



BIC 


♦tC<377> t Rl 


iSAVE EXPD 


RAM DATA BYTE 


BIC 


#tC<377>,R2 


»SAVE EXPD 


RAM DATA BYTE 


JSR 


PC.PRIRAM 


jPRINT THE 


RAM ADDRESS 


JSR 


PC.PRIXOR 


1 PRINT THE 


DATA 


ENDMSG 








L10023; 









TRAP 



CtMSG 



.SBTTL TIMEXP - PRINT TIMER A.B ANO EXP/REC 



i ♦ 



jPRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
jAND TIMER A.B HEADER MESSAGE 



» INPUTS; 

i 
i 
l 



Rl 
R2 



RECEIVED DATA 
EXPECTED DATA 



¥ 



ZTKGA TK-, 

imexp - i 



FT 



2897 
2898 
2899 

2900 



2901 
2902 



2903 
2904 
2905 
2906 



016436 
016436 
016436 
016436 
016442 
016446 
016450 
016452 
016456 
016462 
016462 
016462 



016464 



012746 016464 

012746 000001 

010600 

104415 

062706 000004 

004737 007500 



104423 



045 



116 



J - 



TIMEXP: 



L 10024; 



BGNMSG TIMEXP 



PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADD 

JSR 

ENOMSG 

TRAP 



045 



TIMSGO: .ASCIZ 
.EVEN 



♦TIMSGO 

♦TIMSGO, -(SP) 

♦1,-CSP) 

SP,RO 

CIPNTX 

♦4.SP 

PC.PRIXOR 



CIMSG 



SEQ 83 



jPRINT HEADER 



j PRINT THE DATA 



*N*A TIMER A STATUS IS IN BIT 3*N*A TIMER B STATUS IS IN BIT 2' 



CZTKGA TK-25 KRT ENO FUNC *3 MACRO M1200 20-APR-84 08:13 
BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 



G7 
PAGE 60 



SEQ 84 



2908 
2909 
2910 
2911 
2912 
2913 
2914 
2915 
2916 
2917 
2918 
2919 
2920 
2921 

2922 
2923 
2924 



2925 
2926 
2927 



2928 
2929 



016564 
016564 
016564 
016566 
016572 
016572 
016574 
016600 
016604 
016606 
016610 
016614 
016616 
016622 
016622 
016622 
016624 



010246 
042702 

010246 
012746 
012746 
010600 
104414 
062706 
012602 
004737 



104423 
045 



.SBTTL BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 

PRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS 
INPUTS: 



Rl 
R2 



CONTENTS OF TSSR 
DATA WRITTEN (8 BITS) 



BGNMSG BADSSR 



177400 



016624 
000002 



000006 
005264 

116 



045 



BADSSR: : 




MOV 


R2.-CSP) 


BIC 


#177400, R2 


PRINTB 


♦XFERASC. R2 


MOV 


R2.-CSP) 


MOV 


♦XFERASC. -CSP) 


MOV 


♦2,-CSP) 


MOV 


SP.RO 


TRAP 


C*PNTB 


ADD 


♦6.SP 


MOV 


(SP)*,R2 


JSR 


PCPRITSSR 


ENOMSG 




L10025: 




TRAP 


CIMSG 


XFERASC: 


.ASCIZ '*N*A 



i SAVE DATA TRANSFERRED 
I GET JUST ONE BYTE 



iRESTORE R2 

I DECODE TSSR CONTENTS 



*N*A Oata Transferred - *03' 



H7 

sftgff SBi&^sy^vsfiN* 8 HACR0 Ml20 ° 20 - ApR - 64 o8:i5 page 6i seq * 5 

2931 .SBTTL GLOBAL SUBROUTINES SECTION 
2932 

2933 t f* 

2934 , THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 

2935 , THAT ARE USED IN MORE THAN ONE TEST. 

2936 j - - 
2937 



17 

iKT^IB^lN^A^ 9 CON?^L°e3 1200 2 °- APR - M 08!l3 PAGE « 



SEQ 86 



2939 








.SBTTL 


SOFINIT - SOFT INITIALIZE OF CONTROLLER 


2940 












2941 








j ♦ 




2942 












2943 








{ROUTINE TO DO 


A SOFT INITIALIZE OF THE CONTROLLER 


2944 








t BY WRITING INTO THE TSSR REGISTER. AFTER THE INIT. 


2945 








iTHE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 


2946 








{DETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS. 


2947 












2948 








i INPUTS: 




2949 












2950 








j R5 


ADDRESS OF FIRST RECISTER 


2951 












2952 








j OUTPUTS j 




2953 












2954 








i RO 


CONTENTS OF TSSR, IF ERROR 


2955 








i CARRY 


SET IF INIT WAS OKAY 


2956 










CLEAR IF FATAL ERROR 


2957 












2958 








{CALLING SEQUENCE: 


2959 












2960 








I MOV 


♦ADDRESS, R5 


2961 








j JSR 


PC, SOFINIT 


2962 








i BCS 


CONTINUE 


2963 








{ ERRDF 


{REPORT FATAL ERROR 


2964 








I 




2965 








i - 




2966 












2967 


016660 






SOFINIT:: 




2963 


016660 






SAVREG 


t SAVE THE REGISTERS 


2969 


016664 


012765 


OCOOOO 000000 MOV 


♦O.TSSRCR5) i DO THE INIT. 


2970 


016672 


0047J7 


017134 


JSR 


PC.WAITF i WAIT FOR SSR 


2971 


016676 


016500 


OOOOOO 


MOV 


TSSR(R5),R0 ,GET THE TSSR REGISTER 


2972 


016702 


010004 




MOV 


R0.R4 {START SETUP OF EXPECTED TSSR 


2973 


016704 


042704 


176277 


BIC 


*tC<HIADDR!QFL>,R4 , CLEAR OUT UNUSED BITS 


2974 


016710 


052704 


0022C0 


BIS 


♦SSRJNBA.R4 |R4 HAS EXPECTED CONTENTS 


2975 


016714 


020400 




CMP 


R4,R0 {ONLY EXPECTED BITS SET ? 


2976 


016716 


001402 




BEQ 


5$ {BRANCH IF OKAY 


2977 


016720 


000241 




CLC 


jCLFAR THE CARRY FOR ERROR 


2978 


016722 


000401 




BR 


10$ {GO TO EXIT 


2979 


016724 


000261 




5$: SEC 


j SET THE CARRY BIT 


2980 


016726 


000207 




10$: RTS 


PC {RETURN TO CALLER 



CZTKGA TK-25 FRT END FUNC *3 MACRO M1200 
CHKAMB - CHECK TSSR FOR AMBIGUITY 



2982 
2983 
2984 
2985 
2986 
2987 
2988 
2989 
2990 
2991 
2992 
2995 
2994 
2995 
2996 
2997 
2998 
2999 
3000 
3001 
3002 
3003 
3004 
3005 
3006 
3007 
3008 
3009 
3010 
3011 
3012 
3013 
3014 
3015 
3016 
3017 
3018 
3019 
3020 
3021 
3022 
3023 
3024 
3025 
3026 



J7 

20-APR-84 08; 13 PAGE 63 



♦SBTTL CHKAMB - CHECK TSSR FOR AMBIGUITY 



SEQ 87 



THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER 
FOR AMBIGUITY 



INPUT: 



RO 



OUTPUT: 



RO 



CONTENTS OF TSSR 



CONTENTS OF TSSR 



CARRY SET - NO AMBIGUITY 

CLR - AMBIGUOUS CONTENTS 



016730 
016730 
016734 
016736 
016742 
016 744 
016750 
016752 
016754 
016760 
016762 
016766 
016770 
016774 
017000 
017002 
017004 
017010 
017012 
017016 
017020 
017022 
017024 
017026 



010004 
032700 
001004 
032700 
001023 
000424 
032700 
001011 
032700 
001414 
042704 
020427 
001007 
000410 
032700 
001405 
032700 
001002 
000241 
000401 
000261 
000207 



100000 
174077 

000200 

000040 

177761 
000016 

000040 
000006 



CHKAMB: 


SAVREG 






MOV 


R0.R4 ; 




BIT 


♦SC.RO j 




ftNE 


51 i 




BIT 


#tC<NBA!OFL!SSR!H 




BNE 


40* i 




BR 


45$ j 


5$: 


BIT 


♦SSR.RO , 




BNE 


10$ j 




BIT 


♦8IT5.R0 i 




BEQ 


40$ t 




BIC 


*tCTERCLS.R4 j 




CMP 


R4,*16 j 




BNE 


40$ i 




BR 


45$ i 


10$: 


BIT 


♦BIT5.R0 i 




BEQ 


45$ j 




BIT 


«BIT2!BIT1,R0 I 




BNE 


45$ i 


40$: 


CLC 






BR 


50$ 


45$.- 


SEC 




50$: 


RTS 


PC ! 



SAVE THE GENERAL REGISTERS 
CONTENTS OF TSSR 
IS BIT 15 SET ? 
BRANCH IF YES 
!HIADDfl>.RO » ANY OTHER BITS SET ? 
MUST BE AN ERROR 
RETURN WITH SUCCESS 
IS READY BIT SET ? 
BRANCH IF READY BIT IS SET, 
IS FATAL ERROR BIT SET ? 
ERROR IF NOT 

CLEAR ALL BUT TERMINATION CODE 
ALL THREE BITS MUST BE SET 
ERROR IF NOT SET 
OK IF ALL ARE SET 
15 FATAL ERROR BIT SET ? 
ERROR IF BIT IS SET UITH SSR 
IS THIS A FUNCTION REJECT 
BR. IF TSSR IS OK 
AMBIGUOUS CONTENTS 

SHOW SUCCESS - NO AMBIGUITY 
RETURN TO CALLER 



I<7 



CZTKGA TK-25 FRT END FUNC 43 MACRO M1200 
ENAINT.DSBINT - ENABLE/DISABLE INTERRUPTS 



3028 
3029 
3030 
3031 
3032 
3033 
3034 
3035 
3036 
3037 
3038 
3039 
3040 
3041 
3042 
3043 
3C44 
304? 
3046 
3047 
3048 
3049 
3050 
3051 
3052 
3053 
3054 
3055 
3056 
3057 
3058 
3059 
3060 
3061 
3062 
3063 
3064 



017030 
017031 

017032 
017034 



017036 
017040 
017044 
017050 
017054 
017056 
017060 
017066 



017070 
017072 
017100 



000200 
000001 



000 
000 

000000 
000000 



010046 
013700 
012720 
012720 
012600 
011646 
012766 
000002 



011646 
012766 
000002 



002156 
017102 
000340 



OOOOOO 000002 



000340 000002 
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.SBTTL ENAINT,DSBINT - ENABLE/DISABLE INTERRUPTS 



SfcG 88 



j DEFAULT DISPLAY INTERRUPT HANOLERS , 

i IF DISPLAY TIME-OUT, REPORT DEV FATAL, ANO ABORT PASS, 

; OTHERWISE, SAVE DPU REGISTERS ANO DISMISS. 



j BIT DEFINITIONS FOP "INTMASK" ANO "INTFLAG" BYTES: 



I0KCKIN-BIT7 
IOKSTP-BITO 



I DON'T CHECK FOR BAD INTERRUPTS -- TEST WILL, 
j EXPECT "STOP" INTERRUPT. 



{INTERRUPT MASK -- SAYS EXPECTING INTERRUPTS 

INTMASK: .BYTE 

i INTERRUPT FLAG -- SAYS WE GOT ONE C IF POSITIVE) 

INTFLAG: .BYTE 

{SAVED INTERRUPT VECTOR: 

INTVEC: .WORD 
{SAVE CPU PC 

INTCPC: .WORD 



{SUBROUTINE TO ENABLE INTERRUPTS: 
ENAINT: MOV RO.-CSP) jSAVE RO 

IVEC.RO 

OINTR.(RO)* 

*PRI07,(R0)* 

CSP)*,R0 

CSP).-(SP) 

OO.SCSP) 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 



{GET POINTER TO VECTORS 
{SET UP INTERRUPT VECTOR 



jRESTORE RO 
{SET CPU TO 



.EVEL 



{SUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7) 
DSBINT: MOV CSP).-(SP) 

MOV <tf>RI07,2(SP) 

RTI 



CZTKGA TK-25 FRT ENO FUNC *3 
INTR - INTERRUPT HANDLERS 
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SEQ 89 



3066 
3067 
3068 

3069 
3070 
3071 
3072 
3073 
3074 
3075 
3076 
3077 



3078 
3079 



017102 
017102 
017102 
017110 
017114 
017122 
017124 



012737 
105037 
132737 
001003 
152737 



000001 
017031 
OOOOOl 



017132 
017132 
017132 
017132 000002 



002172 
017030 



INTR: 



OOOOOl 017031 



.SBTYL INTR 
BGNSRV INTR 



- INTERRUPT HANDLERS 



MOV 
CLRB 

Dire 

8NE 
BISB 



I DEFINE INTERRUPT ENTRY 

j SET FLAG TO SHOW INTERRUPT RECEIVED 
i CLEAR FLAG TO SAY WE GOT INTERRUPT 



•l.INTRECV 

INTFLAG 

*IOKSTP t INTMASK j EXPECTING STOP INTERRUPT? 



1$ 



jBR IF YES 



*IOKSTP t INTFLAtt |N0, SET THE ERROR FLAG. 



;SAVE REGISTERS, MSG BUFFER, ETC 
1): 

F.NDSRV 
L10026: 

RTI 



M7 
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SEQ 90 



3081 
3062 
3083 
3084 
3085 
308S 
3087 
3088 
3039 
3090 
3091 
3092? 
3093 
3094 
3095 

3096 
3097 



3098 
3099 
3100 
3101 
3102 



3103 

3104 
31 OS 
3106 
3107 
3108 
310*1 
3110 



017134 
017134 
017136 
017142 
017142 
017146 
017150 
017154 
017156 
017162 
017164 
017170 
017172 
017176 

017200 

017202 
017202 
017206 
017210 
017214 
017216 
017222 
017224 
017230 
017232 
017232 
017234 
017236 
017240 
017242 
017244 
017246 
017250 



104422 
012/46 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
016500 
105700 

10O421 

012727 
OOOOOO 
013727 
OOOOOO 
005367 
001375 
005367 
001367 

104422 
005316 
001355 
000241 
0OO401 
000261 
005326 
000207 



.SBTTL 

SU3R0UTINE TO 

INPUTS? 

R5 

OUTPUTS j 

RO 
CARRY 



WAITF- 



l7/">76 
00O001 
002116 
177772 
177756 
OOOOOO 

000001 
002116 
177772 
177756 



3$: 
4?; 



BREAK 

TRAP 

MOV 

DELAY 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

MOV 

TSTB 

BMI 

DELAY 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

BREAK 

TRAP 

DEC 

BNE 

CLC 

HR 

SEC 

DEC 

RTS 



WAITF - WAIT FOR SUBSYSTEM READY 
WAIT FOR THE SUBSYSTEM READY FLAG 

ADDRESS OF FIRST DEVICE REGISTER 

CONTENTS OF LAST TSSR READ 

SET - READY BIT SET 

CLR - TIMEOUT WAITING FOR READY 

j DO A SUPVSR BREAK FIRST. 



CIBRK 

0177776, -CSP) 

1 

#1,(PC)* 



LIDLY.CPO* 



-6CPC) 

.-4 

-22CPC) 

.-20 

TSSR(R5),R0 

RO 

3$ 

1 

#1.(PC>» 



L$DLY,CPC)f 



-6CPC) 

.-4 

~22(PC:) 

. -20 

CtBRK 
(i*P) 

2$ 

4J 

CSP)» 
PC 



{DIG MSEC TIMER 
;DELAY 1001 JS 



j READ THE TSSR REGISTER 
{TEST FOR READY BIT SET 

j EXIT ON STOP "LAG. 
, WAIT 100 usee 



j DO A SUPVSR BREAK FIRST. 

j REDUCE DELAY COUNT 

iRETRY WTIL TIMER EXPIRES 

i C • 0, CONTROLLER STILL RUNNING... 

I... OR HUNG-UP AFTER 300 MSEC. 

I C - 1, CONTROLLER IS STOPPED. 

{RESTURE STACK WITHOUT CHANGING CARRY BIT 



CZTKGA TK-25 FRT END FUNC 43 
CHKTSSR - CHECK TSSR FOR READY 
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SEQ 91 



3112 
3113 
3114 
3115 
3116 
3117 
3118 
3119 
3120 
3121 
3122 
3123 
3124 
3125 
3126 
312? 

3i?e 

3129 
3130 
3131 
3132 
3133 
3134 
3135 
3136 
3137 
3138 
3139 
3140 
3141 
3142 
3143 



.SBTTL CHKTSSR - CHECK TSSR FOR READY 



017252 
017252 
017256 
017260 
017264 
017266 
017272 
017274 
017300 
017302 
017304 
017306 
017310 



004737 
103014 
004737 
103006 
032700 
001405 
032700 
001402 
000241 
000401 
000261 
000207 



017134 
016730 
100000 
074000 



i + 



5 THIS ROUTINE WAITS FOR READY IN THE TSSR 
;AND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR. 



t 



INPUT; 



R5 ADDRESS OF CSR REGISTERS 



OUTPUT: 



RO CONTENTS OF TSSR 
CARRY SET - OKAY 

CLR - NOT READY AMBIGUOUS, OR SC SET 



I WAIT FOR READY 
I BRANCH IF TIME OUT 
j TSSR AMBIGOUS? 
jBR IF YES 
i SPECIAL CONOITION : 
5 BR IF NO 

,M>,Rn -ANY ERROR 
jBR CF NO 
j SET FAILURE 

♦ SET SUCCESS 
tRETURN TO CALLER 



CHKTSSR 


; 






JSR 


PC.WAITF 




BCC 


20$ 




JSR 


PC.CHKAMB 




BCC 


10$ 




BIT 


*SC.RO 




BEQ 


15$ 




BIT 


4<SCE!BX£ 




BEQ 


15$ 


10$: 


CLC 






BR 


20$ 


15$; 


SEC 




20$: 


RTS 


PC 



SET? 
BITS SET? 



CZTKGA TK-25 FRT END TUNC #3 MACRO M1200 
XNXM - CHECK FOR NONEXISTENT MEMORY 



B8 
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SEQ 92 



3145 
3146 
3147 
3146 
3149 
3150 
3151 
3152 
3153 
3154 
3155 
3156 
3157 
3156 
3159 
3160 
3161 
3162 
3163 
3164 
3165 
3166 
3167 
3169 
3169 



3170 
3171 
3172 
3173 
3174 
3175 
3176 
3177 
3178 
3179 
3160 
3161 
3182 
3183 
3164 
3!85 
3166 
3167 
3166 
3169 
3190 
3191 
3192 
3193 
3194 
3195 
3196 



017312 
017320 
017326 
017350 

017332 
017334 
017336 
017342 

017344 
017346 
017352 
017354 
017354 
017360 
017362 
017364 
017366 
017370 



017372 
017372 
017376 
017400 
017404 
017406 
017412 
017414 
017416 
017420 
017482 



0O5337 
001002 
000241 
000401 
000261 
0OQ207 



.SBTTL XNXM 



- CHECK TOR NONEXISTENT MEMORY 



012737 017344 
01273 7 000200 
005003 
005711 

020102 

001407 

062701 000002 

000772 

005103 

012716 017354 

000002 

012700 000004 

104436 

005703 

001401 

000261 

OOO207 



000004 

000006 



ROUTTNE TO TEST FOR A NEXM IN THE RANGE (Rl) THRU CR2). 
ON RETURN, IF "C" • I, (Rl) • NEXM ADDRESS. 
"C M ■ 0, ALL ADDRESSES OK. 



CALL! 

XNXM: 
lit 



MOV A0R1.R1 
MOV A0R2.R2 
JSR PC.NXM 
RETURN 



21: 
3$: 



MOV 
MOV 
CLR 
TST 

CMP 
BEG 
ADO 
BR 

COM 

MOV 

RTI 

CLRVEC 

MOV 

TRAP 

TST 

BEQ 

SEC 

RTS 



«2i t e#4 

#PRI04,©*6 
R3 

(Rl) 

R1.R2 
3$ 

#2,R1 
II 

R3 

♦31, (SP) 



♦4.R0 
CICVEC 
R3 
.♦4 

PC 



I TEST "C" AND PROCEED. 

I SET BUSERR VECTOR. 

iFlAG. 

i TEST THE ADORESSCES). 

I IF ANY TRAP. CONTINUE AT 21. 

i OTHERWISE. CONTINUE MERE. 

iBR IF FINISHED (NO NEXM'S). 

iSET NEXT AOO*ESS... 

I... AND CONTINUE. 

tGOT ONE. SET FLAG... 

I... AND DISMISS INTERRUPT... 
I,.. AND GIVE BACK THE VECTOR, 



iDID WE CATCH ONE 77 

iNO, "C** - 0. SKIP NEXT. 

lYES, "C" ■ 1, (Rl) ■ NEXM ADOR. 



0O5737 002136 

001006 

005737 002152 

1OO403 



002164 



.S8TTL TSTLOOP - CHECK ITERATION COUNT 

i 

SUBROUTINE TO EXECUTE TESf ITERATIONS. 

EXIT WITH H C M SET IF LOOPS ALLOWED AND LOOP COUNT NON-ZERO. 

LOOP COUNTER IS SET BY "BEGIN* TEST" MACRO, 



I ITERATIONS INHIBITED? 

I YES. 

i NO, 

lLOOPS DISALLOWED IN QUICK PASS. 

I BUMP LOOP COUNTER, 

jLOOP DISALLOWED, OR DONE* 

i LOOP ENABLED* 



i CALL » LOOPTO 


ARG 


TSTLOOPn 




TST 


NOITS 


BNE 


a 


TST 


OVP 


BMI 


ii 


DEC 


LOOPCNT 


BNE 


2* 


lit CLC 




BR 


31 


21: SEC 




3$t RTS 


PC 



C8 
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TSTLOOP - CHECK ITERATION COUNT 



SEQ 93 



319« 
3199 
3200 
3201 
3202 
3203 
3204 
3205 
3206 
3207 
320S 
3209 
3210 
3211 
3212 
3213 
3214 
3215 
3216 
3217 
3218 
3219 
3220 
3221 
3222 
3223 
3224 
3225 
3226 
3227 
322« 
3229 
3230 
3231 
3232 
3233 
3234 
3235 
3236 
3237 
3238 



3239 
3240 
3241 



3242 
3243 



3244 



017424 
017424 
017426 
017432 
017436 
017442 
017446 
017452 
017454 
017460 
017462 
017464 
017472 
017472 
017474 
017476 
0175O0 
017502 
0175O4 
017512 
017512 
017514 
017516 
017520 
017522 
017530 
017530 
017534 
017536 



010046 
005037 
005037 
005037 
105037 
013700 
006300 
005737 
0O1430 
100010 
052760 

104455 
000001 
003636 
0O5176 
000407 
052760 

104455 
0OOO02 
004233 
000000 
01273/ 

013700 
104451 



.SBTTL TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 

PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO ALONG. 
INCREMENT "TESTK" TO INDICATE THE NUMBER OF TESTS 
IN THE CURRENT RUN SEQUENCE, 
CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS. 



INPUT} 



RO 



POINTER TO TEST ID ASCIZ STRING 



OUTPUT i 



R5 



ADDRESS OF FIRST DEVICE REGISTER 

IMPLICIT OUTPUTS: 

TSTCNT IPDATEO TO COUNT TESTS PERFORMED SINCE START OR RESTART 

SIDE EFFECTS: 

INTERRUPT LEVEL IS RASIED TO LEVEL OF 
THE DEVICE UNDER TEST 



003106 
017672 
005232 
017030 
002150 

003062 



160000 003130 



TSTSETUP:: 

MOV 



160001 003130 3»: 



177777 003060 
002150 



2$: 



CLR 

CLR 

CLR 

CLR8 

MOV 

ASl 

TST 

B£Q 

BPL 

BIS 

ERROF 

TRAP 

.WORO 

.WORO 

.IORD 

BR 

BIS 

ERRDF 

TRAP 

.WORD 

.WCKU 

.WORD 

MOV 

DOOU 

MOV 

r RAP 

DOCLN 



RO.-(SP) 

SXFLAG 

ERRK 

EXTA 

INTMASK 

UNITN.RO 

RO 

NOOEV 

41 

31 

♦1600O0,ERTABL( 

l.NXR.NXRERR 

C*ERDF 

1 

NXR 

NXRERM 

21 

#160001 ,ERTABLC 

2.N0INIT 

CIERDF 

2 

NOINIT 



♦ -1.DUFL.G 

UNTTN 

UNITN.RO 

CIDOOU 



SAVE THE TEST ID MESSAGE 
CLEAR "SOFT INIT" FLAG 
CLEAR LOCAL ERROR COUNTER. 
CLEAR ERROR EXTENSION FLAG. 
CLEAR INTERRUPT MASK (CHECK ERROR) 
GET THE UNIT NUMBER, 
... AND MAKE IT A WORD OFFSET. 
DID STARTUP FIND THE DEVICE? 
BR IF YES 
BR IF NOT IDLE 
RO) i FLAG ERROR IN THE ERROR TABLE 
I NO DEVICE HERE -- PRINT IT 



RO) i FLAG ERROR IN THE ERROR TABLE 
l DEVICE NOT IDLE 



, DROP THE UNIT 



1 ABORT THE PASS 



D8 
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3245 
3246 
3247 

3248 
3249 
3250 
3251 



3252 
3253 



3254 
3255 
3256 
3257 
3256 



017536 
017540 

017542 
017542 
017544 
017550 
017552 
017554 
017554 
017556 
017562 
017566 
017570 
017572 
017576 
017602 
017602 
017606 
017610 
017612 
017616 
017620 



104444 
0OO423 



104421 
032700 
001412 
011600 

010046 
012746 
012746 
010600 
104417 
062706 
005237 

013700 
104441 
005726 
013705 
0OC207 
045 



4$} 



001000 



017620 
000002 



000006 
002162 

002160 



002154 
123 



1$: 

5${ 
045 TNAM; 



TRAP 
BR 

RFLAGS 
TRAP 

BIT 

BEQ 

MOV 

PRINTF 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

INC 

SETPRI 

MOV 

TRAP 

TST 

MOV 

RTS 

.ASCIZ 

.EVEN 



CIOCL.N 
51 

RO 

CIRFLA 

#PNT v RO 

It 

CSP),RO 

#TNAM # 30 

RO.-CSP) 

♦TKAM, -CSP) 

♦2,-CSP) 

SP.RO 

CIPNTF 

#6,SP 

TSTCNT 

IPRI 

IPRI.RO 

CISPRI 

(SP)* 

CSRADDR.R5 

PC 

'*S*T»A T*st 



SEQ 94 



I GET THE OPERATOR FLAGS, 

1 PRINT THE TEST NUMBERS? 

I BR IF NO 

I GET THE ID MESSAGE 

I DISPLAY THE TEST ID 



I BUMP TEST COUNTER. 

i PRIORITY THAT OF DEVICE 



i FIX UP THE STACK 

I ADDRESS OF TSV REGISTERS ON UNIBUS 



E8 



CZTKGA TK-25 FRT ENO FUNC *3 MACRO M1200 
TSTEND - PRINT ERRORS RECEIVED 



5260 
3261 
3262 
3263 
3264 
3265 

3266 
3267 
3268 



3269 
3270 
3271 
3272 
3273 
3274 
3275 
3276 
3277 
3276 
3279 
3280 
3281 
3282 
3283 
3284 
3285 
3286 
3287 
3288 
3289 
3290 
3291 
3292 
3293 
3294 
3295 
3296 
3297 
3298 
3299 
3300 
3301 

3302 

3303 
3304 
3305 



017634 
017634 
017636 
017642 
017644 
017644 
017650 
017654 
017660 
017662 
017664 
017670 

017672 
017674 
017713 



017760 
017764 
017766 
017772 
017774 
020000 
020002 
020006 
020010 
020012 
020014 

020016 
020020 
020024 
020026 
020032 
020036 
020042 
020044 
020052 
020054 
020054 
020056 
020062 
020064 
020072 
020072 
020074 
020076 



104421 
030027 
001412 

013746 
012746 
012746 
010600 
104417 
062706 
000207 

000000 
045 

105 



005237 
010O46 
013700 
006300 
062700 
005210 
032710 
001001 
005310 
012600 
000207 

01OO46 
013700 
006300 
016000 
042700 
020037 
103004 
023737 
103417 

104421 

032700 
001013 

012737 

104455 
000004 
017713 
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.SBTTL TSTENO - PRINT ERRORS RECEIVED 



SEQ 95 



j AT ENO OF EACH TEST, PRINT THE NUMBER OF ERRORS RECEIVED 
t IF NORMAL ERROR REPORTING IS DISABLED (FLAiIER). 



020000 



017672 
017674 
000002 



000006 



101 
122 



TSTENO; RFLAGS 
TRAP 
BIT 
BEQ 
PRINTF 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 

1*: RTS 



RO 

CtRFLA 

RO.flER 

It 

*ESUM,ERRK 

ERRK.-CSP) 

♦ESUM.-CSP) 

♦2,-CSP) 

SP.RO 

CtPNTF 

♦6.SP 

PC 



l BR IF "IER" NOT SET. 
i PRINT ERROR COUNT, 



040 
122 



ERRK: 

ESUM: 
EMAXDUt 



i ♦ 



j LOCAL ERROR COUNT. 

.ASCIZ /#A *0*A ERRORS/ 

.ASCIZ /ERROR LIMIT REACHED -- DROPPING UNIT/ 

.EVEN 

.SBTTL INCERK - INCREMENT LOCAL ERROR COUNT 



017672 
002150 
003130 
007777 



002150 

003130 
170000 
002142 

017672 002140 

000040 

177777 003060 



j ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT: 

INCREMENT LOCAL ERROR COUNT 

SAVE RO 

GET UNIT NUMBER, 

... ANO MAKE IT A WORD OFFSET. 

RO GETS ADORESS OF ERROR TABLE ENTRY. 

INCREMENT THE DEVICE ERROR COUNT 

DID WE OVERFLOW THE FIELD? 

BR IF NO. 

YES -- BACK IT UP TO 7777. 

RESTORE RO 

RETURN TO CALLER. 

SAVE RO 

GET UNIT NUMBER 

... AND MAKE IT A WORD OFFSET 

GET ERROR TABLE ENTRY 

EXTRACT ERROR COUNT FIELD 

IS GLOBAL LIMIT EXCEEDED FOR THIS UNIT? 

BR IF YES 

IS LOCAL LIMIT EXCEEDED FOR THIS TEST? 

BR IF NO 

GET OPERATOR FLAGS 

IS POPPING INHIBITED? 

BR IF YES. 

NO -- DROP THE UNIT 



I - 






INCERK: 


INC 


ERRK j 




MOV 


RO.-CSP) i 




MOV 


UNITN.RO i 




ASL 


RO i 




ADO 


♦ERTABL.RO i 




INC 


CRO) j 




BIT 


♦7777, CRO) » 




BNE 


It I 




DEC 


CRO) , 


It: 


MOV 


CSP)*,RO i 




RTS 


PC i 


CKEMAXj 


MOV 


RO.-CSP) ; 




MOV 


UNITN.RO i 




ASL 


RO j 




MOV 


ERTA8LCR0),R0 , 




BIC 


♦170000, RO j 




CMP 


RO.GERRMAX j 




BHIS 


It i 




CMP 


ERRK.LERRMAX j 




BLO 


2t j 


It: 


RFLAGS 


RO i 




TRAP 


CtRFLA 




BIT 


♦IDU.RO j 




BNE 


2t i 




MOV 


♦-1.DUFLG j 




ERRDF 


4.EMAXDU 




TRAP 


CtERDF 




.WORD 


4 




.WORD 


EMAXDU 



F8 
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SF.Q 96 



3306 



3307 

3308 
3309 
3310 
3311 
3312 
3313 
331.4 
3315 
3316 
3317 
3318 
3319 
3320 
3321 
3322 
3323 
3324 
3325 

3326 
3327 
3328 
3329 
3330 
3331 
3332 



020100 
020102 
020102 
020106 
020110 
020110 
020112 
020114 



020116 
020116 
020122 
020126 
020130 
020136 
020142 
020150 
020152 
020152 
020154 
020160 
020162 
020166 



000000 

013700 002150 
104451 

104444 
012600 
000207 



2*; 



FATCHK: 



013701 002150 

006301 

062761 000001 0O3130 

005237 002170 

023727 002170 000031 

002406 

104421 

032700 040000 

001002 

004737 020170 

000207 



9$: 



.WORD 

DOOU 

MOV 

TRAP 

OOCLN 

TRAP 

MOV 

RTS 

.SBTTL 





UNITN 

UNITN.RO 

C1D0DU 

CIDCLN 
(SP)*,RO 
PC 
FATCHK - 



I RESTORE RO 
, RETURN TO CALLER 
INC FATAL ERRORS ANO CHECK FOR LIMIT 



CHECK FATAL COUNTER, AFTER INC, FOR MORE THAN 25 
ERRORS ANO IF OVER CALL UNIT DROP ROUTINE 



SAVREG 




MOV 


UNITN, Rl 


ASL 


Rl 


ADO 


♦1.ERTABLCR1) 


INC 


FATFLG 


CMP 


FATFLG,*25. 


BLT 


9% 


RFLAGS 


RO 


TRAP 


CIRFLA 


BIT 


*3IT14*RO 


BNE 


91 


JSR 


PC.CKDROP 


RTS 


PC 



l BETTER SAVE THE REGISTERS 

i PICK UP THE UNIT NUMBER 

j MAKE IT INTO A BYTE OFFSET 

l ADD 1 TO THE PROPER UNIT'S ERROR COUNTER 

iBUMP FATAL ERROR COUNTER 

I CHECK AGAINST 25 

I BR, IF LESS THAN 25 ERRORS 

I READ THE FLAGS INTO RO 

I BR, IF LOOP ON ERROR IS SET 

I OTHERWISE NEVER BE ABLE TO SCOPE ETC. 

,DROP UNIT IF ALLOWED 

j RETURN ETC. 



s» "-sfcBvw'&jfiLD &mw» 



20-APR-84 08? 13 
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SEG 97 



3334 

3335 
3336 
3337 
3338 
3339 
3340 

3341 
3342 
3343 
3344 
3345 



3346 

3347 
3348 
3349 
3350 
3351 
3352 
3353 
3354 
3355 
3356 
3357 
3358 
3359 
3360 
3361 
3362 



020170 
020172 
020202 
020202 
020204 
020210 
020212 
020214 
020222 
020222 
020226 
020230 
020230 
020232 
020234 



020236 
020236 
020242 



010046 



104421 
032700 
001010 
011600 
012737 

013700 
104451 

104444 
012600 
000207 



000040 



177777 003060 



002150 



004737 016660 
000207 



,SBTTL CKDROP - CHECK IF UNIT SHOULD BE DROPPED 



j CHECK IF UNIT SHOULD BE DROPPED 



l - 




CKDROP: 


MOV RO.-(SP) 




FORCERROR lt.NOTSSR 




RFLAGS RO 




TRAP CIRFLA 




BIT #IDU t RO 




BNE 1$ 




MOV (SP).RO 




MOV »-l.DUFLG 




DOOU UNITN 




MOV UNITN. RO 




TRAP CIDOOU 




DOCLN , 




TRAP CtDCLN 


1$: 


MOV CSP)f,RO 




RTS PC 



j ABORT THE PASS 



.SBTTL CONFIG 



DETERMINE CONFIGURATION OF SYSTEM 



j SUBROUTINE - DETERMINE CONFIGURATION OF TK-25 SYSTEM, 



CONFIG; 



JSR PC.SOFINIT 

RTS PC 



H8 



CZTKGA TK-25 FRT END FUNC 03 MACRO M1200 20-APR-84 06:13 
KTQN.KTOFF - ENABLE/DISABLE MEMORY MANAGEMENT 
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SEQ 98 



3364 
3365 
3366 
3367 
3368 
3369 
3370 
3371 
3372 
3373 
3374 
3375 
3376 
3377 
3378 
3379 
3380 
3381 
3382 
3383 
3364 
3385 



020244 005737 003100 

020250 001403 

020252 012737 000001 177572 

020260 000207 



020262 005737 003100 

020266 001405 

020270 000240 

020272 000240 

020274 012737 000000 177572 

020302 000207 



.SBTTL KTON.KTOFF 
I SUBROUTINE - ENABLE MEM MGT. 



KTON: 



1$: 



- ENABLE/DISABLE MEMORY MANAGEMENT 



TST 


KTFLG 


I GOT KT? 


BEQ 


1* 


I NO. 


MOV 


Ol.SRO 


j YES. ENABLE KTll. 


RTS 


PC 





LI: 



SUBROUTINE ■ 


- DISABLE 


MEM 


MGT. 




OFF: TST 


KTFLG 






i GOT KTll? 


BEQ 


1$ 






1 NO, 


NOP 










NOP 










MOV 


*O,SR0 






j DISABLE KT. 


RTS 


PC 









CZTKGA TK-25 FRT ENO FUNC #3 
SETMAP - SETUP PAR6 MAPPING 

3387 
3388 
3389 
3390 
3391 
3392 
3393 
3394 
3395 
3396 
3397 
3398 
3399 
3400 
3401 
3402 
3403 
3404 
5405 
3406 
3407 
3408 
3409 
5410 
5411 
141 c 
5413 
3414 
5415 
54i6 
3417 
5418 
5419 
5420 
3421 
3422 
5423 
3424 
5425 
3426 



MACRO M1200 20-APR-84 08:15 
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SEQ 99 



020304 
020304 
020510 
020514 
020316 



020350 
020554 
020560 
020562 
020566 
020372 
020376 
020400 
020402 
020404 
020406 



005737 
001433 
010102 
0O0006 



042701 
020137 
105011 
010157 
042702 
062702 
010200 
0O0261 
OO0401 
0O0241 
000207 



,SBTTL SETMAP - SETUP PAR6 MAPPING 



THIS ROUTINE SETS UP KERNEL PAR6 TP HANDLE 
AN 18 BIT ADDRESS. THE OFFSET INTO THE PAGE 
IS RETURNED BIASED TO PAR6, 



INPUTS: 



RO 
Rl 



OUTPUTS: 



SETMAP; 



003100 



0O0177 
005100 

172354 
160000 
140000 



RO 
CARRY 



SAVREG 
TST 
BEQ 
MOV 
.REPT 
ASR 
ROR 
.ENOR 
BIC 
CMP 
BHIS 



MOV 
BIC 
ADO 
MOV 
SEC 
BR 
10$; CLC 
15$; RTS 



HIGH ORDER ADDRESS BITS 
LOW ORDER ADDRESS BITS 



OFFSET INTO BLOCK WITH PAR6 BIAS (I.E. THE ADDRESS) 
SET IF SUCCESS 
CLR IF ERROR 



KTFLG 

101 

R1.R2 

6 

RO 

Rl 

♦177, Rl 

Rl.KTFLG 

101 

R1.0#KIPAR6 

#160000, R2 

#140000, R2 

R2.R0 

15$ 

PC 



SAVE R1-R4 UNTIL NEXT RETURN 

SYSTEM HAVE ABOVE 28K? 

BR IF NO 

SAVE LOW ORDER BITS 

CONVERT WORO ADDRESS TO 32W BLOCKS 
MAKE IT DOUBLE PRECISION 

ALINE FOR LOWER 4K BOUNDARY 
HIGHER THAN EXISTING MEMORY? 
BR IF YES 

SETUP MAPPING REGISTER PAR6 
SETUP DISPLACEMENT IN PAGE 
AOO IN PAR6 BIAS 
RETURN IN RO 
SET SUCCESS 

SET FAILURE 
RETURN 



J8 



CZTKGrt TK-25 FRT END FUNC *3 MACRO M1200 20-APR-84 08} 13 
FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 
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SEQ 100 



3428 
3429 
3430 
3451 
5432 
34 33 
3434 
3435 
3436 
3437 
3438 
3439 
3440 
3441 
3442 
3443 
3444 
5445 
3446 
3447 
3448 
3449 
3450 
3451 
3452 
3453 
?454 
3455 
3456 
3457 
3458 
3459 
3460 
3461 
3462 
3463 
3464 
3465 
3466 
3467 
3468 
3469 
3470 
3471 
34 72 
34 73 
3474 



020410 
020410 
020414 
020420 
020422 
020426 
020432 
020434 
020436 
020440 
020444 
020446 
020452 
020454 



020524 
020530 
020532 
020536 
020540 
020544 
020552 
020560 
020562 
020566 
020572 



004737 
010003 
013701 
013702 
010321 
005302 
003375 
005737 
001452 
004737 
0O50O0 
013701 
000006 



00*73? 
010320 
020027 
103774 
162700 
062737 
023737 
001402 
OO0137 
004737 
000207 



.SBTTL FILLMEM - FILL MEMORY WI T H BACKGROUND PATTERN 

FILL MEMORY WITH A BACKGROUND PATTERN 

INPUTS i 

SO - BACKGROUND PATTERN 

FREE - FIRST LOCATION AVAILABLE TO DIAGNOSTIC 

KTFLG - SET TO HIGHEST MEMORY LOCATION IF > 28K , 

OUTPUTS: 

NONE 



FILLMEM: 



020262 

003072 
0O3074 



003100 
020244 
003104 



10*; 



020304 

160000 

020000 

0OO200 172354 

1723154 003100 

020530 
020262 



301: 



501: 
55$: 



SAVREG 

JSR 

MOV 

MOV 

MOV 

MOV 

DEC 

RGT 

TST 

8EQ 

JSR 

CLR 

MOV 

.REPT 

CLC 

ROL 

ROC 

.ENDR 

JSR 

MOV 

CMP 

BLO 

sue 

ADD 
CMP 
BEQ 
JMP 
JSR 
RTS 



PC.KTOFF 

R0.R3 

FREE.R1 

FRESIZ.R2 

R3.CR1)* 

R2 

10$ 

KTFLG 

55$ 

PC.KTON 

RO 

P5T32W.R1 

6 

Rl 
RO 

PC.SETMAP 

R3.CR0)* 

RO, #160000 

30$ 

♦20000, RO 

*200,&*KIPAR6 

S*KIPAR6, KTFLG 

50$ 

30$ 

PC.KTOFF 

PC 



SAVE R1-R5 UNTIL NEXT RETURN 

DISABLE KT. 

COPY TEST PATTERN 

GET FIRST FREE LOCATION 

SIZE OF FREE SPACE BELOW 28K . 

STORE A BACKGROUND WORD 

DONE ALL MEMORY IN FREE SPACE? 

BR IF NO 

GOT KT? 

WO. GET OUT. 

YES t ENABLE KT, 
HIGH ORDER ADDRESS START 
GET >28K START ADDRESS C IN 32W BLOCKS) 

CLEAR C BIT 

CONVERT BLOCKS TO WORDS 

MAKE IT DOUBLE PRECISION 

SET'* PAR6 MAPPING REGISTER 
STORE TEST PATTERN IN >26K ADDRESS 
ENO OF PAR6 MAPPING AREA? 
BR IF NO 

BACKUP INTO PAR6 MAPPING BEGIN 
POINT TO NEXT 4K BLOCK >28K. 
ENO OF MEMORY? 
BR IF YES 
KEEP GOING ON ETC. 
DISABLE KT, 



CZTKGA TK-25 FRT END FUNC #3 MACRO M1200 20- APR -84 08:15 
CMPMEM - COMPARE MEMORY TO BACKGROUND PATTERN 
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SEQ 101 



34 76 
34 77 
34 78 
3479 
3460 
3481 
3462 
3483 
3484 
3465 
3486 
3487 
3488 
3489 
3490 
3491 
3492 
3493 
3494 
3495 
3496 
3497 
3498 
3499 
3500 
350 i 
3502 
3503 
3504 
3505 
3506 
3507 
350U 
3509 
3510 
3511 
351? 
3513 
3514 
3515 
3516 
351/ 
3518 
3519 
3520 
3523. 
352? 
3523 
3524 
3525 
3526 
3527 
''8 

00 

3532 



020574 
020574 
020600 
020602 
020606 
020612 
020616 
020620 
020622 
020626 
020632 
020636 
020642 
020644 
020646 
020650 
020652 
020656 
020660 
020664 
020666 



020722 
020726 
020730 
020732 
020736 
020 740 
020742 
020744 
020746 
020750 



010003 
004737 
013701 
013702 
020311 
001411 
01.0137 
005037 
010337 
011137 
000474 
005721 
005302 
003362 
005737 
001472 
OC4737 
005000 
013701 
00O006 



042701 
010046 
010146 
004737 
010004 
012601 
012600 
020314 
001411 
010037 



.SBTTL CMPMEM - COMPARE MEMORY TO BACKGROUND PATTERN 

COMPARE MEMORY WITH A BACKGROUND PATTERN 

INPUTS: 

RO - BACKGROINO PATTERN 

TREE - FIRST LOCATION AVAILABLE TO DIAGNOSTIC 

KTFLG - SET TO HIGHEST MEMORY LOCATION IF > 28K . 



OUTPUTS: 



CARRY - SET IF NO ERROR 
CARRY - CLR IF ERROR 



IMPLICIT OUTPUTS: 



CMPMEM: 



020262 
003072 
003074 



002204 
002202 
002176 
002200 



003100 
020244 
003104 

000177 
020304 



101 



15$ 



30$: 



002202 



ERRHI 
ERRLO 
EXPO 
RECV 



SAVREG 

MOV 

JSR 

MOV 

MOV 

CMP 

BEG 

MOV 

CLR 

MOV 

MOV 

BR 

TST 

DEC 

DGT 

TST 

BEQ 

JSR 

CLR 

MOV 

,REPT 

ROL 

ROL 

,ENOR 

BIC 

MOV 

MOV 

JSR 

MOV 

MOV 

MOV 

CH<? 

BEQ 

MOV 



- ERROR HIGH ADDRESS 

- ERROR LOW ADDRESS 

- EXPECTED DATA 

- RECEIVED DATA 



R0.R3 
PC t KT0FF 
FREE,R1 
FRESIZ.R2 

R3,CRn 

15$ 

Rl, ERRLO 

ERRHI 

R3.EXPD 

(Rl).RECV 

50$ 

(Rl)* 

R2 

10$ 

KTFLG 

55$ 

PC # KT0N 

RO 

PST32W,R1 

6 

Rl 

RO 

#177, Rl 

RO.-CSP) 

Rl.-CSP) 

PC.SETMAP 

R0.R4 

CSP)*,Rl 

CSP)*,RO 

R3.CR4) 

32$ 

RO, ERRHI 



SAVE R1-R5 UNTIL NEXT RETURN 

COPY TEST PATTERN 

DISABLE KT. 

GET FIRST FREE LOCATION 

SIZE Of' FREE SPACE BELOW 28K. 

FREE SPACE LOCATION EQUAL TO EXPO? 

BR IF YES 

SAVE ADDRESS IN ERROR 

NO HIGH ADDRESS 

SAVE EXPO FOR ERROR REPORT 

SAVC RECV FOR ERROR REPORT 

POINT TO NEXT ADDRESS 

DONE ALL MEMORY IN FREE SPACE? 

BR IF NO 

GOT KT? 

NO. GET OUT. 

YES. ENABLE KT. 
HIGH ORDER ADDRESS START 
GET >28K START ADDRESS CIN 32W BLOCKS) 

CONVERT BLOCKS TO WORDS 
MAKE IT DOUBLE PRECISION 

ALINE 4K BOUNDARY 

SAVE HIGH ORDER 

SAVE LOW ORDER 

SETUP PAR6 MAPPI^ REGISTER 

COPY ADDRESS BIASED TO PAR6 

RESTORE LOW ORDER IN NON PAR6 FORMAT 

RESTORE HIGH ORDER IN NON PAR6 FORMAT 

ABOVE 2M LOCATION EQUAL EXPO? 

jBR IF YES 

j SAVE HIGH ORDER IN ERROR 



L8 



CZTKGA TK-25 FRT ENO FUNC *3 MACRO M1200 2< 
CMPMEM - COMPARE MEMORY TO BACKGROUND PATTERN 

3533 020754 010137 002204 

3534 020760 010337 002176 

3535 020764 011437 002200 

3536 020770 000421 

3537 030772 062701 000002 32*: 

3538 020776 005500 

3539 0210O0 062704 000002 

3540 021004 020427 160000 

3541 021010 103755 

3542 021012 162704 020000 

3543 021016 062737 000200 172354 

3544 021024 023737 172354 003100 

3545 021032 101744 

3546 021034 0O4737 020262 50$: 

3547 021040 0OO241 

3548 021042 000403 

3549 021044 0O4737 020262 55$: 

3550 021050 000261 

3551 021052 000207 60$: 
3552 



APR -84 


08:13 PAGE 


75-1 


MOV 


Rl.ERRLO 


i 


MOV 


R3.EXPD 


t 


MOV 


CR4),RECV 




BR 


50$ 




ADD 


02, Rl 




ADC 


RO 




ADD 


02.R4 




CMP 


R4 ,0160000 




BLO 


30$ 




sue 


020000, R4 




ADD 


*200,©*KIPAR6 j 


CMP 


SH>KIPAR6,KTFLG i 


BLOS 


oO$ 




JSR 


PC.KTOFF 




CLC 






BR 


60$ 




JSR 


PC.KTOFF 




SEC 






RTS 


PC 





SEQ 102 



I SAVE LOW ORDER IN ERROR 
;SAVE EXPO FOR ERROR REPORT 
SAVE RECV FOR ERROR REPORT 

UPDATE NON PAR6 ADDRESS 

MAKE IT DOUBLE PRECISION ADD 

UPDATE PAR FORMAT ADDRESS 

END OF PAR6 MAPPING AREA? 

BR IF NO 

BACKUP INTO PAR6 MAPPING BEGIN 

POINT TO NEXT 4K BLOCK >26K. 

ENO OF MEMORY? 

BR IF NO 

TURN OFF MEMORY MAPPING 

SET FAILURE 

TURN OFF MEMORY MAPPING 
SET SUCCESS 



CZTKGA TK-25 FRT END FUNC *3 
REGSAV - SAVE R1-R5 ON STACK 



MACRO M1200 20-APR-84 08; 13 
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SEQ 103 



3554 

3555 
3556 
3557 
3558 
3559 
3560 
3561 
3562 
3563 
3564 
3565 
3566 
3567 
3568 
3569 
3570 
3571 
3572 
3573 
3574 
3575 

3576 
3577 
3578 
3579 
3580 
3581 
3582 
3583 
3584 
3585 
3586 
3587 
3588 

3589 
3590 



021054 
021054 
021054 
021056 
021060 
021062 
021064 
021066 
021070 
021074 
021076 
021100 
021102 
021104 
021106 
021110 
021110 
021112 



104422 

010446 

010346 

010246 

010146 

010546 

016605 000012 

004736 

012601 

012602 

012603 

012604 

012605 

104422 
000207 



,SBTTL REGSAV - SAVE R1-R5 ON STACK 



ROUTINE TO 

SAVE Rl THROUGH R5 ON THE STACK 



CALLING SEQUENCE: 



JSR 



R5.REG5 -W 



THIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO 
THE CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE, 
THE RTS PC RETURNS CONTROL TO THIS ROUTINE TO RESTORE 
REGISTERS. 

THIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE 
CALLED VIA A JSR PC INSTRUCTION 



REGSAV j 



BREAK 




TRAP 


C$BRK 


MOV 


R4.-CSP) 


MOV 


R3.-CSP) 


MOV 


R2.-C5P) 


MOV 


Rl.-(SP) 


MOV 


R5.-CSP) 


MOV 


10.CSP),R5 


JSR 


PC.SCSP)* 


MOV 


CSP)*,R1 


MOV 


CSP)*,R2 


MOV 


CSP)»,R3 


MOV 


C Sr ) ♦ , R4 


MOV 


(SP)*,H5 


BREAK 




TRAP 


C*BRK 


RTS 


PC 



i LOOK FOR CNTL C 



jLOOK FOR CNTL C 



N8 



CZTKGA TK-25 FRT END FUNC *3 MACRO M1200 
GETPAT - GET Q BIT PATTERN FROM OPERATOR 



3592 
3593 

3594 
3595 
3596 
3597 
3598 
3599 
3600 
3601 
3602 
3603 
3604 
3605 
3606 
3607 
3608 
3609 
3610 
3oll 
3612 
3613 



3614 

3615 

3616 
3617 
3618 
3619 
3620 
-621 
:«622 
3623 
3624 



021114 
021114 
021120 
021120 
021122 
021124 
021126 
021130 
021132 
021134 
021136 
021140 
021140 
021140 
021142 
021146 



021150 
021152 



104443 
000406 
021150 
000022 
021152 
00O377 
OOOOOO 
000377 



103367 
013700 
000207 



20-APR-84 08:13 PAGE 77 



.SBTTL GETPAT - GET 8 BIT PATTERN FROM OPERATOR 



SEQ 104 



ROUTINE TO REQUEST AN 6 BIT DATA PATTERN FROM THE OPERATOR 
INPUTS: 

NONE. 
OUTPUTS: 

RO OCTAL NUMBER FROM THE OPERATOR 
{CALLING SEQUENCE: 

JSR PC, GETPAT 



GETPAT 
1*: 



10000? 



021150 



SAVREG 




GMANID 


DATASCPA 


TRAP 


CtGMAN 


BR 


10000* 


,WORD 


PATOAT 


.WORD 


TIlCDE 


.WOPD 


DAT.USC 


.WORD 


377 


.WORD 


TJLOLIM 


.WORD 


tjhilim 


UNCOMPLETE 1 


BCC 


1$ 


MOV 


PATDAT.RO 


RTS 


PC 



5 SAVE THE GENERAL REGISTERS 



t RE TRY IF ERROR 

iDATA PATTERN FROM OPERATOR 
{RETURN TO CALLER 



j ♦ 



;LOCAL DATA AREA 



OOOOOO 
105 



116 



124 



PATDAT: .WORD 
DATASC: .ASCIZ 
.EVEN 



; TEMPORARY STORAGE FOR DATA 

'ENTER DATA PATTERN' 



B9 



CZTKGA TK-25 FRT ENO TUNC #3 MACRO M1200 20-APR-84 08il3 
GSTSEL ISSUE MENU AND GET OPERATOR RESPONSE 
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SEQ 105 



3626 
3627 
362« 
3629 
3630 
3631 
3632 
3633 
3634 
3635 
3636 
3637 
36 38 
3639 
3640 
3641 
3642 
3643 
3644 



3645 

3646 



3647 

3640 
3649 
3650 
3651 



3652 
3653 
3654 

3655 
3656 

365 7 

J65S 



021176 
021176 
0212O2 
021204 
021206 
021210 
021212 
021212 
021214 
021220 
021224 
021226 
021230 
021234 
021236 
021236 
021240 
021242 
021244 
021246 
021250 
021252 
021254 
021256 
021256 
021256 
021260 
021264 
021266 
021270 
021270 
021274 
021300 
021302 
021304 
021310 
021312 
021314 
021362 
021367 



010002 
010203 
005713 
001412 

012546 

012746 
012746 
010600 
104417 
062706 
000764 

104443 
000406 
021416 
000042 
021367 
177777 
000000 
177777 



103552 
013700 
020001 
101411 

012746 

012746 

010600 

104417 

062706 

000735 

000207 

045 

045 

105 



021362 
000002 



000006 



021416 



021314 
000001 



000004 



116 

116 
156 



045 
045 
164 



,SBTTL GETSEL - ISSUE MENU ANO GET OPERATOR RESPONSE 

iROUTINE TO ISSUE A MENU ANO GET 

I THE OPERATOR'S RESPONSE, 

I INPUTS} 

i 

j RO 

i Rl 

, OUTPUTS j 

» 

i RO 



ADDRESS OF ASCIZ STRING Of MENU 
MAXIMUM ALLOWABLE OPERATOR RESPONSE 



NUMBER Of THE OPERATOR'S SELECTION 



GETSEL i 



lit 
21? 



3lt 



10001*1 



021416 000000 



5*! 

MENERRi 

SELASC: 
MENASCi 

M&NRESi 



SAVREG 

MOV 

MOV 

TST 

BEQ 

PRINTF 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

BR 

GMANID 

TRAP 

BR 

.WORO 

.WORO 

.WORO 

.MOW) 

.WORO 

,WORO 



R0.R2 

R2.R3 

(R3) 

31 

♦SELASC, (R3)» 

CR3)*.-(SP) 

♦SELASC, -(SP) 

♦2,-CSP) 

SP.RO 

ClPNTF 

♦6.SP 

2$ 

MENASC, ME NRES. D.-l.O.-l .NO 

ClGMAN 

100011 

MENRES 

TICODE 

MENASC 

-1 

TILOLIM 

TIMILIM 



I SAVE GENERAL REGISTERS 

I SAVE THE MENU ADDRESS 

iSTART OF MENU STRING 

lEND OF ASCII 7 

iBRANCM IF ALL LINES DISPLAYED 

I DISPLAY THE MENU 



BNCOMPLETF 



II 



BCC II 

MOV MEWES.RO 

CMP R0.R1 

BLOS 51 

PRINTF ♦hENERR 

MOV ♦MENERR, -(SP) 

MOV ♦l.-(SP) 

MOV SP.RO 

TRAP CIPNTF 

AOO *l . SP 

BR II 

RTS PC 

.ASCIZ '*N*A *•« M«nu 

ASC II ' MMT ' 

! ASCIZ 'Ent«r M#*U SftUctlom 
.EVEN 

tUORD 



iRETRY IF ERROR 



iGET THE OPERATOR'S 
I COMPARE TO MAXIMUM 
I BRANCH IF OK 
IDISPLAY ERROR MESSAGE 



REPLY 
ALLOWED 



iRETRY 

iRETURN TO CALLER 
Selection T$s L*t*g# 



%%# 



mm tk -faWtmL^iiwyM^mi* 



20-APR-84 06tl3 



C9 

PAGE 79 



SEQ 106 



3660 
3661 
3662 
3663 
3664 
3665 
3666 
3667 
3668 
3669 
3670 
3671 
3672 
3673 
56 74 
3675 
36 76 
3677 
3678 
3679 
3680 
3681 
3682 
3683 
3684 

3685 

3686 



3687 
3688 

3689 
3690 
3691 



021420 
021420 
021424 
021424 
021426 
021426 
021430 
021430 
021434 
021440 
021442 
021444 
021450 
021452 

0^1454 



.SBTTL CHKMAN - CHECK MANUAL INTERVENTION LEGALITY 



ROUTINE TO TEST TOR MANUAL INTERVENTION LEGALITY, 
INPUT! 



NONE. 



OUTPUT j 



CARRY 



SIDE EFFECTS 




1 



MANUAL INTERVENTION NOT ALLOWED 
MANUAL INTERVENTION IS OK 



A MESSAGE IS DISPLAYED WARNING THAT TEST IS 
NOT EXECUTED IF MANUAL INTERVENTION IS NOT 
ALLOWED, 



CHKMAN? t 



104450 

103411 

012746 021454 

012746 000001 

010600 

104417 

062706 000004 

0O0241 

000207 



SAVREG 

MANUAL 

TRAP CIMAMI 

BCOHPLETE II 



045 



116 



1»: 

045 NQMANi 



BCS 

PRINTF 

MOV 

MOV 

MOV 

TRAP 

ADO 

CLC 

RTS 

.ASCIZ 



1$ 

#NOHAN 

#NOHAN.-(SP) 

♦ 1,-CSP) 

SP,RO 

CIPNTF 

M.SP 

PC 



,SAVE THE REGISTERS 

I SEE IF MANUAL INTERVENTION OK 

, BRANCH IF ALLOWED 

jPRINT THE WARNING MESSAGE 



(CLEAR CARRY FOR ERROR 
iRETURN 



4 #N*A *** Mmual Int*rv*ntion not Allowed - T«*t Abort*<* *** 



mm ^-faWeM 5«*6n«1tic SffiGg M120 ° so-apr-o* 08,13 



D9 

PAGE 80 



SEQ 107 



3693 

3694 

3695 
3696 
3697 

3698 
3699 
3700 
3701 
3702 
3703 
3704 
3705 
3706 
3707 
3706 
3709 
3710 
3711 



021550 
021550 
021552 
021556 
021564 
0215/0 
021576 
021602 
021610 
021612 
021614 
021620 
021624 
021630 
021634 



104431 
010037 
062737 
011037 
162/37 
013702 
162737 
005302 
001373 
013700 
063700 
162700 
010037 
000207 



003072 
000002 
003074 
000004 
002012 
000007 



003072 
003074 
000002 
003076 



003072 
003074 
003074 



.S8TTL ENVIRN - SETUP FREE DIAGNOSTIC SPACE 
l 
l SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS, 



I GET 1ST TREE ADDRESS... 
i . . . ANO WORD COUNT , 

I GET NUMBER OF UNITS 

j TAKE AWAY 7 WORDS PER UNIT 



iGET FIRST FREE ADDRESS 
iPOINT TO LAST FREE ADDRESS 
I BACKUP 1 WORD 
I STORE LAST FREE ADDRESS 
l RE TURN 



ENVIRN { MEMORY 


RO 


TRAP 


CIMEM 


MOV 


RO.FREE 


ADD 


♦2, FREE 


MOV 


(RO).FRtSIZ 


sue 


4M.FRESIZ 


MOV 


LIUNIT.R2 


10$} SUB 


♦7.FRESIZ 


DEC 


R2 


BN6 


101 


MOV 


FREE.RO 


ADD 


FRESIZ.RO 


SUB 


♦2,R0 


MOV 


R0,FREEHI 


RTS 


PC 



E9 



CZTKGA TK-25 FRT END FUNC *3 MACRO M12QQ j 
KTINIT - SETUP KT11 MEMORY MANAGEMENT REGIS!! 



|Q-APR-84 08} 13 PAGE 81 



SEQ 108 



3713 
3714 
3715 










.SBTTL 


KTINIT - SETUP KT11 MEMORY MANAGEMENT REGI 








i ♦ 
l 








3716 








jROUTINE TO INIT KT-11 




3717 








\ 








3718 








i - 








3719 
















3720 021636 








KTINIT: 








3721 021636 


005037 


003100 






CLR 


KTFLG 


INIT >28K MEMORY FLAG 


3722 021642 


005037 


003102 






CLR 


KTENA8LE 


INIT TEST >28K FLAG 


3723 021646 


023727 


002120 


001577 




CMP 


LIHIME,*1577 


GOT ENOUGH MEMORY (>28K)? 


3724 021654 


101444 








BLOS 


9$ 


NO. 


3725 021656 


013700 


000004 






MOV 


©♦ERRVEC.RO | 


SAVE OLD ERR VEC PTR, 


3726 021662 


012737 


02171*4 


000004 




MOV 


♦2I.©*€RRVEC i 


SET ERR VEC PTR. 


3727 021670 


005737 


177572 






TST 


S#SRO i 


GOT KT11? 


3728 021674 


000240 








NOP 




(TRAP IF NO). 


3729 021676 


013737 


002120 


003100 




MOV 


LIMINE, KTFLG 


YES. SET KT FLAG. 


3730 021704 


042737 


000177 


003100 




BIC 


♦177,KTFLG 




3731 021712 


010037 


000004 






MOV 


RO,B#ERRVEC 


RESTORE OLD ERR VEC PTR, 


3732 021716 


005000 








CLR 


RO i 


RO ■ Afl DATA. 


3733 021720 


012701 


172340 






MOV 


♦KIPAR0,R1 i 


Rl - KI REGS PTR. 


3734 021724 


012761 


077406 


177740 


1$; 


MOV 


♦77406, -40CR1) 


SET DESCRIPTOR REG. 


3735 021732 


010021 








MOV 


R0.CR1)» i 


SET KIPAR REG. 


3736 021734 


062700 


000200 






ADO 


#200 ,R0 


BUMP AR DATA BY "4K». 


3737 021740 


020027 


002000 






CMP 


R0,#2000 


AT "I/O"? 


3738 021744 


001367 








BNE 


1$ 


NO. 


3739 021746 


012741 


177600 






MOV 


♦177600, -CRD 


YES. SET KTPAR7 FOR I/O. 


3740 021752 


000405 








BR 


9$ 




3741 
















3742 021754 


012716 


021762 




2$: 


MOV 


♦61. (SP) i 


SET UP RETURN 


3743 021760 
3744 


000002 








RTI 




RTI TO NEXT LOCATION 


3745 021762 
3746 


010037 


000004 




6t: 


MOV 


RO.S*ERRVEC i 


RESTORE OLD ERR VEC PTR, 


3747 021766 


000207 






9*; 


RTS 


PC 




3756 
















3757 
















3763 

















F9 

SSoT^CT ION 2 ? AbK EN ° FUNC * 5 MACR ° M120 ° 20 " APR - 84 06j13 PAGE 62 SEQ 109 

3765 .SBTTL PROTECTION TABLE 

3766 021770 BGNPROT 
021770 L$PROT:s 

3767 021770 177777 177777 177777 .WORD -1, -1, -l t -1 |N0 DEVICE PROTECTION REQUIRED. 

3768 022000 ENOPROT 
3769 



CZTKGA TK-25 FRT END FUNC 03 
INITIALIZE SECTION 



MACRO M1200 20-APR-84 08? 13 
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SEQ 110 



3771 
3772 
3773 
3774 
3775 
3776 
3777 
3778 
3779 
3780 
3781 
3782 
3783 
3784 

3785 

3786 
3787 
3788 
3789 
3790 



3791 

3792 
3793 
3794 
3795 
3796 
3797 
3798 
3799 
3800 
3801 
3802 



3803 

3804 

3805 

3806 
3807 

3808 

3809 
3810 

3811 



022000 
022000 
022000 
022000 
022006 
022012 
022016 
022022 
022022 
022026 
022030 
022030 
022032 
022040 
022042 
022046 
022050 
022054 
022056 
022062 
022064 
022072 
022074 
022074 
022076 
022100 
022100 
022104 
022106 
022106 
022110 
022110 
022114 
022116 
022116 
022120 
022120 
022124 
022126 
022126 
022130 
022130 
022130 
022132 



012737 
00503? 
005037 
005037 

012700 
104447 

103023 
023737 
103064 
005737 
10O466 
013701 
006301 
005761 
001512 
032761 
001054 

104432 
00O412 

012700 
104447 

103046 

012700 
104447 

103404 

012700 
104447 

103025 



104433 
005037 



.SBTTL INITIALIZE SECTION 

I THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
j AT THE BEGINNING OF EACH PASS. 

jIF "START" OR "RESTART", SET QUICK-PASS FLAG AND BUS-INIT. 

j IF ••CONTINUE". NOTHING IS REQUIRED. 

I 
, - - 

JlNSt-RT 
; - 



TEMPORARY JUMP TO ODT 



005672 
003106 
003102 
002246 

000036 



002150 
003060 
002150 

003130 
040000 



002146 



L$INIT; 
40$; 



002012 



003130 



000035 



000040 



000037 



1* 



2$ 



♦EPRT1.EPRTSW 

SIFLAG 

KTENA8LE 

RAMSIZ 

♦EF. CONTINUE 

♦EF. CONTINUE ,Rt 

CIREFG 



BGNINIT 



MOV 

CLR 

CLR 

CLR 

REAOEF 

MOV 

TRAP 

BNCOMPLETE 1$ 

BCC It 

CMP UNITN,L$UNIT 

BHIS 4$ 

TST DUFLG 

BMI NXTU 

MOV UNITN.R1 

ASL Rl 

TST ERTABLCRl) 

BEQ SETU 

BIT #BlTl4 f ERTABL(Rl 

BNE NXTU 

EXIT INIT 

TRAP CIEXIT 

.WORD L10030-. 

REAOEF ♦EF. NEW 

MOV *EF. NEUI.RO 

TRAP CIREFG 

BNCOMPLETE NXTU 

BCC NXTU 

READEF #EF. START 

MOV #EF. START.RO 

TRAP CIREFG 

BCOHPLETE 2$ 

BCS 2$ 

READEF #EF. RESTART 

MOV *EF. RESTART.RO 

TRAP CIREFG 

BNCOMPLETE 31$ 



I SET UP PRIMARY MESSAGE FOR REPLACEMENT 

I CLEAR "SOKT INIT" FLAG 

I CLEAR TEST ABOVE 28K ^LAG 

I CLEAR RAM SIZE PQR RAMERR ROUTINE 



j UNIT IN RANGE? 
iBR IF NO. 
I DROPPED UNIT? 
j BR IF YES 



) ;DROPPED? 

I DO NOTHING IF "CONTINUE" 



I TAKE NEXT UNIT IF NOT NEW PASS. 



002162 



BCC 

BRESET 
TRAP 

CLR 



31$ 



CIRESET 
TSTCNT 



ilST PASS. BUS-INIT... 
I BUS RESET. 

I NUMBER OF TESTS RUN IN PASS 



fiafflU&^EHoB 



NO FUNC #3 MACRO M1200 20-APR-84 08:13 



H9 
PAGE 63-1 



SEQ 111 



3812 
3813 
3814 
3815 
3816 
3817 
3818 
3819 
3820 
3821 
3822 
3823 
3824 
3825 
3826 
3827 
3828 
3829 

3830 
3831 
3832 
3833 
3834 
3835 

3836 
3837 
3838 
3839 
3840 
3841 
3842 

3843 
3844 
3845 
3846 

3847 
3848 
3849 
3850 



3851 

3852 
3853 
3854 

3855 
3856 

3857 
3358 
3859 
3860 
3861 



022136 
022142 
022146 
022146 
022154 
022160 
022164 
022170 
022172 
022176 
022200 
022202 
022206 

022212 
022212 
022220 
022224 
022224 
022226 
022232 
022240 
022242 
022250 
022252 
022252 
022254 
022256 
022256 
022264 
022266 
022272 
022274 
022274 
022276 
022302 

0223O4 
022304 
022306 
022310 

022310 
022310 
022314 
022316 
022316 
022320 
022324 
022330 
022332 

022336 
022340 
022342 
022346 
022352 



005037 
005037 

012737 
004737 
004737 
012700 
005020 
020027 
103774 
000404 
005037 
000137 



012737 
005037 

104422 
005237 
023737 
103423 
012737 
000401 

104444 
000240 

023727 
101752 
005737 
001747 

104421 
032700 
001343 



104424 
000741 



013700 
104442 

103342 
005037 
005237 
012001 
010137 

012001 
011002 
010237 
010137 
012721 



002170 
003332 

177777 
021550 
021636 
003130 

003330 



002152 
022256 



177777 
002166 



002150 
002150 

177777 



002012 
002166 

000100 



002150 



003060 
002166 

002154 



00.: 160 

002156 
017102 



002152 



002150 

002012 
003060 



19$; 

201: 



30$: 



31$: 



4$: 

NEWPAS: 

NXTU: 



000001 



11$: 

PASRPTj 



10$: 
SETUt 



CLR 
CLR 

MOV 
JSR 
JSR 
MOV 
CLR 
CMP 

BIO 
BR 
CLR 
JMP 



MOV 

CLR 

BREAK 

TRAP 

INC 

CMP 

BLO 

MOV 

BR 

DOCLN 

TRAP 

NOP 

CMP 

BLOS 

TST 

BEQ 

RFLAGS 

TRAP 

BIT 

BNE 



FATFLG 
SKIPT 

♦-1.QVP 

PC.ENVIRN 

PC.KTINIT 

♦ERTABL,RO 

(RO)* 

RO,*ERTABE 

30$ 

4$ 

QVP 

PASRPT 



♦-1.UNITN 

DEVCNT 

C$BRK 

UNITN 

UNITN, L$UNIT 

SETU 

t-l.DUFLG 

11$ 

C$DCLN 



L$UNIT,*1 

NEWPAS 

DEVCNT 

NEWPAS 

RO 

C$RTLA 

♦ISR.RO 

NEWPAS 



DORPT 

TRAP C$DRPT 

BR NEWPAS 



GPHARD UNITN, RO 

MOV UNITN, RO 

TRAP C$GPMRD 
BNCOMPLETE NXTU 

BCC NXTU 

CLR DUFLG 

INC DEVCNT 

MOV CR0)*,R1 

MOV Rl.CSRADDR 



, RESET FLAG TO ZERO "FATAL ERRORS" 
, CLEAR THE SUBTEST "SKIPPER" 

».,, QUICK VERIFY,.. 

»SET ENVIRONMENT, 

i INITIALIZE KT MEMORY MANAGEMENT 

I CLEAR THE ERROR TABLE 



jGO REPORT THE STATUS 



iINIT UNIT NUMBER.., 

i CLEAR COUNT OF DEVICES RUNNING 



I,., AND SET NEXT UNIT NUMBER. 



I ABORT, NO MORE UNITS. 



» HOW MANY UNITS SELECTED? 
,BR IF ONLY 1 
,ARE ANY STILL RUNNING? 
I BR IF NO 



j SHOULD WE PRINT STATISTICS 
»BR IF NO 



MOV 


(R0)*,R1 


MOV 


CR0),R2 


MOV 


R2.IPRI 


MOV 


Rl.IVEC 


MOV 


0INTR.CR1)* 



,GET UNIT N POTABLE POINTER. 

»BR IF UNIT NOT AVAILABLE. 

, CLEAR "DROPPED" FLAG, 

i GET 1ST REGISTER ADDRESS. 

, ADDRESS OF REGISTERS OF UNIT UNOER TEST 

i GET VECTOR ADDRESS. 

,GET INTERRUPT PRIORITY 

,SET INTERRUPT PRIORITY. 

,SET INTERRUPT VECTOR POINTER.,, 

j.., VECTOR,,, 



CZTKGA TK-25 FRT END FUNC *3 
INITIALIZE SECTION 
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SEQ 112 



3862 
3863 
3864 
3865 
3866 
3867 
3868 
3869 
3870 
3871 
3872 
3873 
3874 
3875 
3876 
3877 
3878 

3879 
3880 
3881 



3382 

3B83 
38*4 

3685 
3586 
3887 
3888 
3889 
3890 
3891 
3892 
3393 
3894 
3895 



3896 



3897 
3898 
3699 



022356 
022360 



022360 
022564 
022366 
022374 
022400 
022406 
022410 
022410 
022412 
022416 
022420 
022420 
022424 
022430 
022434 
022436 
022440 
022444 
022444 
022450 
022454 
022456 
022462 
022466 
022470 
022474 
022502 



022502 
022502 
022506 
022510 
022510 
022510 

022512 



010221 



013701 
006301 
052761 
005037 
023727 
101416 

104421 
032700 
001412 

013746 
012746 
012746 
010600 
104417 
062706 

005037 
013701 
010102 
062702 
004737 
103005 
010137 
012737 



104411 
045 



MOV 



R2.CRD* 



I... AND PRIORITY. 



TST 
BEQ 



QVP 
5$ 



1 1ST PASS ?? 

|N0, SKIP THE PASS 1 STUFF 



002150 

100000 
005232 
002012 



001000 



002150 
022512 
000002 



000006 

003062 
002154 

000000 
017312 

003062 
177777 



003130 
000001 



1*; 

i 
i 

j 1ST PASS. CHECK THAT DEVICE AOORESSES ARE VALID. AND 
jTHAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 



j CLEAR ERROR EXTENSION FLAG. 
lARE WE TESTING MULTIPLE UNITS? 
iBR IF NO. 
lYES -- GET OPERATOR FLAGS. 

jSHOULO WE PRINT UNIT *? 

j BR IF NOT. 

I PRINT THE UNIT * 



10$ 



003060 



2$: 



MOV 


UNITN.R1 


ASL 


Rl 


BIS 


♦6IT15.ERTAB1 


CLR 


EXTA 


CMP 


LIUNIT,*! 


BLOS 


101 


RFLAGS 


RO 


TRAP 


CtRFLA 


BIT 


♦PNT.RO 


BEQ 


101 


PRINTF 


♦PUNIT.UNITN 


MOV 


UNITN.-CSP) 


MOV 


♦PUNIT.-CSP) 


MOV 


♦2,-CSP) 


MOV 


SP.RO 


TRAP 


CIHNTF 


ADO 


♦6.SP 


CLR 


NOOEV 


MOV 


CSRA00R.R1 


MOV 


R1.R2 


ADO 


#TSSR. R2 


JSR 


PC.XNXM 


BCC 


2% 


MOV 


Rl, NOOEV 


MOV 


♦-1.DUFLG 



I ADDRESS OF FIRST REGISTER 

i START OF REGISTERS 

lADORESS OF TSSR REGISTER 

j TEST BOTH CONTROLLER REGISTERS 

I . . .AND BR IF ALL OK. 

(FLAG DEVICE AS NON-EXISTENT 

jDROP THIS UNIT. 



jFINALLY, SET CPU PRIORITY ANO WE'RE DONE. 



012700 000000 
104441 



5$: 



L10030: 



116 



045 PUNIT: 



SETPRI 

MOV 

TRAP 

ENOINIT 


♦PR 1 00 tENAI 

♦PRIOO.RO 

CtSPRI 


TRAP 


CIINIT 


.ASCIZ 
.EVEN 


/*N#N*A***** TESTING 



I ENABLE INTERRUPTS. 



UNIT #D2#A **♦**/ 



C7TKGA TK-25 FRT END FUNC *3 
ADD AND DRLP UNITS SECTIONS 



3901 
3902 
3903 
3904 
3905 
3906 
3907 
3906 



MACRO M1200 20-APR-84 08-13 
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SEQ 113 



3909 
3910 
3911 
3912 
3913 



3914 



3915 

3916 
3917 
3918 



3919 
3920 
3921 
3922 
3923 
3924 
3925 
3926 
3927 
3928 
3929 
3930 

3931 
3932 
3933 
3934 
3935 
3936 



3937 



022560 
022560 
022560 
022562 
022564 
022572 
022600 
022600 
022602 
022606 
022612 
022614 
022616 
022622 
022622 
022624 
022626 



022654 
022654 
022654 



022656 
022656 
022656 
022664 
022666 
022670 
022676 
0227O4 
022704 
022706 
022712 
022716 
022720 
022722 
022726 
022726 
022730 



010001 
0063C1 
052761 
042761 

010046 
012746 
012746 
010600 
104417 
062706 

000167 

000026 

045 



104452 



012737 
010001 
O06301 
052761 
000240 

010046 
012746 
012746 
010600 
104417 
062706 

000167 
000030 



♦SBTTL ADD AND DROP UNITS SECTIONS 



i ** 



i THE ADD -UNIT SECTION CONTAINS THE COOING THAT CAUSES A DEVICE 

i TO BE CA) ADDED TO THE TEST LIST FOR THE FIRST TIME, 

l OR (B) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED. 



LIAU: 



10O000 
040000 



022626 
000002 



000006 



116 



003130 
003130 



045 1$ 



L10031: 



BGNAU 

MOV 

ASL 

BIS 

BIC 

PRINTF 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

EXIT 

.WORD 

.WORD 

.ASCIZ 

.EVEN 

ENOAU 
TRAP 



R0.R1 i GET UNIT TO BE ADDED (RO) 

Rl i MAKE IT A WORD INOEX 

♦100000, ERTABLCR1) j SET THE "ACTIVE" BIT 

♦40000, ERTABL(Rl) j CLEAR THE "DROPPED" BIT 

♦II, RO 

RO.-(SP) 

•11,-CSP) 

♦2,-CSP) 

SP.RO 

C$PNTF 

♦6,SP 

AU 

JUMP 

L10031-2-. 

/*N*A UNIT #D*A ADDED/ 



i UNUSED. 



CIAU 



THE DROP-UNIT SECTION CONTAINS THE COOING THAT CAUSES A DEVICE 
TO BE REMOVED FROM THE TEST LIST. 

SUPVSR DOES THE "DROPPING". THIS IS JUST TO TELL THE MAN. 
"DROPPED" UNITS ARE RE -SELECTED ON OPERATOR "STA" OP "ADD" 
COMMAND, OTHERWISE REMAIN INACTIVE. THE "DISPLAY" COMMAND 
WILL PRINT ALL DROPPED UNITS, ANO THE P-TABLES OF THOSE 
WHICH ARE STILL ACTIVE. 
UPON ENTRY, RO CONTAINS THE UNIT TO BE DROPPED. 



177777 003060 



LIDUt 



140000 
000240 



022 732 
000002 



000006 



003130 
000240 



BGNOU 

MOV 
MOV 
ASL 
BIS 



240,240,240 
PRINTF ♦ll.RO 



♦-1.DUFLG 

R0,R1 

Rl 

♦140000, ERTABLCR1) 



SAY DROPPED 
????????? 



MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

EXIT 

.WORD 

.WORD 



RO, (SP) 

♦11,-CSP) 

♦2,-CSP) 

SP.RO 

CIPNTF 

♦6.SP 

DU 

JUMP 

L10052-2-, 



CZTKGA TK-25 FRT F.ND FUNC 03 
ADD AND DROP UNITS SECTIONS 
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SEQ 114 



3938 
3939 
3940 



3941 
3942 
3943 
3944 

3945 
3946 
3947 
3948 



3949 

3950 
3951 
3952 
3953 



022732 

022762 
022762 
022762 



C22764 
022764 
022764 
022770 
022774 
022776 
022776 
023002 
023004 
023010 
023012 
023016 
023020 
023024 
023026 
023030 
023032 
023036 
023036 
023036 
023036 



045 



104453 



012703 
004737 
103420 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005303 
001357 
004737 



104461 



116 



000550 
017134 



000372 
002116 
177772 
177756 

020170 



.ASCIZ 
.EVEN 

ENODU 

TRAP 



045 1$: 

L10032: 

J ♦♦ 

i AUTO-DROP CODE SECTION, 
{ -- 

BGNAUTO 
UAUTO; 

10$: 



/*N*A UNIT *D*A DROPPED/ 



C*DU 



20*: 
L10O33: 



MOV 

JSR 

BCS 

DELAY 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

DEC 

BNE 

JSR 

ENOAUTO 
TRAP 



0360. ,R3 

PC.WAITF 

20) 

250. 

*250. ,(PO* 



LIOLY.CPO 



-6CPC) 

. -4 

-22CPC) 

.-20 

R3 

lOt 

PC.CKDROP 



CtAUTO 



(ENOUGH ^IME FOR 2400' REEL TO REWIND 
iWAIT FOR SSR TO SET 
I LEAVE WHEN SSR IS SET 
j WAIT FOR .25 SECONDS 



iBUMP COUNTER DOWN 

} KEEP GOING 

j TRY AND DROP UNIT 

x UNUSED. 



L9 



CZTKGA TK-25 FRT END FUNC *3 MACRO M1200 

CLEAN-UP AND REPORT CODING SECTIONS 



3955 
3956 
3957 
3958 
3959 
3960 
3961 
3962 

3963 
3964 
3965 
3966 
3967 
3968 
3969 
3970 
3971 



3972 
3973 
3974 
3975 
3976 

3977 



3978 
3979 
3980 
3981 
3982 
3983 
3984 
3985 
3986 
3987 
3988 
3989 



3990 
3991 
399? 
3993 



023040 
023040 
023040 
023044 



023046 
023052 
023060 
023064 
023064 
023064 
023064 



023066 
023066 
023066 
023066 
023072 
023076 
023100 
023102 
023106 
023110 
023112 
023114 
023120 
023122 
023124 
023126 
023130 
023134 
023136 
023142 
023142 
023144 
023146 
023152 
023156 
023160 
023162 
023166 
023170 
023174 
023176 
023176 
023^00 



005737 
100407 



013705 
012765 
004737 



104412 



012746 
012746 
010600 
104416 
062706 
010246 
010346 
010446 
012704 
0O50C3 
011402 
001467 
100066 
032702 
001015 
042702 

010246 
010346 
012746 
012746 
010600 
104416 
062706 
000446 
020227 
001012 

010346 
012746 
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.SBTTL CLEAN-UP AND REPORT CODING SECTIONS 



SEQ 115 



003060 



002154 
000000 
017134 



» THE CLEANUP CODING SECTION CONTAIkJ THE CODING THAT IS 

I EXECUTED AT THE END OF EACH PASS COR SUB-PASS), 

i USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE. 

BGNCLN 
L$CLEAN;i 

TST DUFLG 
BMI 1$ 



000000 



II: 
2$: 

L 10034: 



NOV 
MOV 

JSR 

ENOCLN 
TRAP 



CSRADDR.R5 

♦0.TSSRCR5) 

PC.WAITF 



CtCLEAN 



j "DROPPED" FLAG IS SET ON,,. 

I... AND GROSS CONTROLLER FAULT... 

I... DON'T TRY TO XCT CLEANUP CODE. 

, AODRESS OF TSV REGISTERS ON UNIBUS 
sDO SOFT INIT 



J ♦ ♦ 

J 
i 



THE REPORT COOING SECTION CONTAINS THE 

"PRINTS" CALLS THAT GENERATE STATISTICAL REPORTS. 



LfRPT: 



023330 
000001 



000004 
003130 

040000 
170000 



023365 
000003 



000010 
160000 

023435 



li 



2$ 



BGNRPT 

PRINTS 

MOV 

MOV 

MOV 

TRAP 

ADD 

MOV 

MOV 

MOV 

MOV 

CLR 

MOV 

BEQ 

BPL 

BIT 

BNE 

BIC 

PRINTS 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

BR 

CMP 

b;*z 

PRINTS 

MOV 

MOV 



*0EVSUM 

♦OEVSUM.-CSP) 

♦l.-CSP) 

SP.RO 

C$PNTS 

*4,SP 

R2.-CSP) 

R3.-CSP) 

R4.-CSP) 

♦ERTABL.R4 

R3 

CR4),R2 

41 

4$ 

♦BIT14.R2 

2$ 

*tC7777,R2 

<>OEVONL ( R3,R2 

R2.-CSP) 

R3,-(SP) 

♦devonl.-csp) 

#3 , - C SP ) 

SP.RO 

C1PNTS 

*10, SP 

4$ 

R2, 0160000 

3$ 

0DEVNXR.R3 

R3, -(SP) 

ODEVNXR.-tSP) 



GET START OF ERROR TABLE. 
CLEAR UNIT NUMBER 
GET ERROR TABLE ENTRY £ TEST IT 
ZERO IF UNIT NOT RUN 

WAS UNIT DROPPED? 

BR IF YES 

GET ERROR COUNT FIELD 

PRINT 



WAS UNIT NON-EXISTENT? 



I BR IF NO 



M9 



CZTKCA TK-2 
CLEAN-UP A 



FRT END TUNC 
REPORT CODING 



*3 MACRO M1200 
ECTIONS 
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SEQ 116 



3994 
3995 
3996 
3997 



3998 
3999 
4000 



4001 
4002 
4003 
4004 
4005 
4006 
4007 
4008 



4009 
4010 
4011 
4012 
4013 
4014 
4015 
4016 
4019 
4026 
4032 
4040 



023204 
023210 
023212 
023214 
023220 
023222 
023226 
023230 
023230 
023232 
02321,6 
023242 
023244 
023246 
023252 
023254 
023260 
023260 
023262 
023264 
023270 
023274 
023276 
023300 
023304 
023310 
023312 
023316 
023320 
023322 
023324 
023326 
023326 
023326 



02A530 

023365 
0234 35 
02351/ 
023600 



012746 
010600 
104416 
062706 
000431 
020227 
001012 

010346 
012746 
012746 
010600 
104416 
062706 
0OO414 
042702 

010246 
010346 
012746 
012746 
010600 
104416 
062706 
062704 
005203 
020427 
103701 
012604 
012603 
012602 



104425 



045 
045 
045 
045 
045 



000002 

000006 
160001 



023517 
000002 



000006 
170000 



023600 
000003 



000010 
00OOO2 

003330 



116 
101 
101 
101 
101 



3$ 



30$ 



4$ 



045 
040 
040 
040 
040 



L10035; 



DEVSUft 
CtVONL 
DEVNXR 
DEVNHD 
DEVDRQ 



MOV 

MOV 

TRAP 

ADD 

BR 

CMP 

BNE 

PRINTS 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

BR 

BIC 

PRINTS 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

r.JD 

INC 

CMP 

BLO 

MOV 

MOV 

MOV 

ENDRPT 

TRAP 



.ASCIZ 
.ASCIZ 
.ASCIZ 
. ASCIZ 
.ASCIZ 
.EVEN 



42, -(SP) 

SP.RO 

CIPNTS 

46, SP 

41 

R2, 4160001 

301 

40EVNRD.R3 

R3,-(SP) 

40EVNRD.-CSP) 

♦2.-C5P) 

SP,R0 

CIPNTS 

*6, SP 

4* 

OtC7777,R2 

40EVDRG,R3,R2 

R2, -CSP) 

R3, -(SP) 

40EVDR0,-(SP) 

#3, -CSP) 

SP.RO 

CIPNTS 

010, SP 

42, R4 

R3 

R4.4ERTABE 

1$ 

CSP)*,R4 

CSP)*,R3 

CSP)*,R2 



CtRPT 



I UAS UNIT NOT READY AT STARTUP? 
j BR IF NO, 



j UNUSED, 



/#N*ADEVICE STATUS SUMMARY :*N/ 

/*A UNIT *D3*A ONLINE, ERRORS - #D*N/ 

/*A UNIT *D3*A DROPPED, N0N-FX YSTENT REGISTERS/ 

/*A UNIT *D3*A DROPPED. MOT READY AT STARTUPS/ 

/*A UNIT *D3*A DROPPED, ERRORS " «D*N/ 



CZTKGA TK 25 FRT END FUNC 03 
TEST 1: SPACE RECORDS 



4042 
4043 
4044 
4045 

4046 
4047 
4048 
4049 
4050 
4051 
4052 
4053 
4054 
4055 
4056 
4057 
4056 
4059 
4060 
4061 
4062 
4063 
4064 
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SEQ 117 



.SBTTL TEST It SPACE RECORDS 



THIS TEST VERIFIES THAT THE SPACE RECORDS FORWARD AND SPACE 

RECORDS REVERSE POSITION COMMANDS OPERATE PROPERLY WHEN SPACING 

OVER NORMAL DATA RECORDS. OPERATION WHEN SPACING OVER TAPE MARKS 

IS VERIFIED IN A SUBSEQUENT TEST, THE BASIC WRITE DATA TEST 

SHOULD HAVE BEEN RUN SUCCESSFULLY FOR THIS TEST 10 PRODUCE MEANINGFUL 

RESULTS. THIS TEST CONSISTS OF A SERIES OF SUBTESTS. IN EACH 

OF THE SUBTESTS, THE TAPE IS ENTIRELY WRITTEN WITH RECORDS 

OF VARYING SIZES ANO DATA CONTENT , THE FIRST 4 BYTES OF EACH 

RECORD INDICATE THAT RECORD'S RELATIVE POSITION ON TAPE. AFTER 

EACH SPACING OPERATION. THE TAPE POSITION IS VERIFIED BY READING 

THE NEXT OR PREVIOUS RECORD AND COMPARING THE POSITION DATA WITH 

THE EXPECTED RESULT, 



THE TEST CONSISTS OF THE FOLLOWING 8 SUBTESTS 



4065 
4066 

4067 
4072 
4073 
4074 
4075 
4076 
4077 
4078 
40/9 
4080 
4081 

4082 
408X 

4084 
4085 
4086 
4087 
4088 
4089 



4090 
4091 
409? 
4093 
4094 
4095 
4096 
4097 
4093 
4099 



023650 
023650 
023650 
023654 
023660 
023666 
023672 
023676 
023702 



i - 



BGNTST 



005037 
005037 
012737 
004737 
012700 
004 737 
012737 



002170 
003100 
005771 
020262 
031462 
017424 
000002 



002146 



002164 



CLR 


FATFLG 


CLR 


KTFLG 


MOV 


0EPRT2.EPRTBW 


JSR 


PC.KTOFF 


MOV 


4TST25ID.R0 


JSR 


PC,TSTSE1UP 


MOV 


«2,L00PCNT 



Tl 
ERROR 



FLAG 



j CLEAR FATAL 
jHOLD OFF KT11 

{SECONDARY ERROR MESSAGE 
i DON'T NEED LOTS OF MEMORY 
I ASCII MESSAGE TO IDENTIFY 
iDO INITIAL TEST SETUP 
j PERFORM 2 ITERATIONS 



TEST 



TEST 1, SUBTEST 1 



VERIFIES THAT A SPACE RECORDS FORWARD COMMAND UTTH 
THE CLEAR VOLUME Cr^CK (CVC) bll CLEAR IS REJECTED IF 
THE VOLUME CHECK (VCK) FLAG IS SET. 



023710 
023710 
023710 
023710 
023712 
023716 
023722 
023726 
023732 



T25L00P: 



104402 
004737 
005037 
004737 
004 737 
01273/ 



031500 
030270 
031572 
031634 
176750 



030272 



JGNSJB 



JSR 
CLR 
JSR 
JSR 
MOV 



PC.T25REST 

T25CNT 
PC.T25RT2 
PC.T25RT3 
♦65000. .T25DLY 



)>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

Tl.l: 

TRAP CSDSUB 
l SET COMMAND PACKET 
tLt-EAR THE RECORD COUNTER AREA 
iSET UP OTHER COMMAND PACKET 
j SET UP OTHER COMMAND PACKET 
i SET UP LOOP COUNTER 



*** + * + **«ufc*** + 4 + **4***********. ********** ************************* 

ISSUE CONTROLLER "SOFT" INITIALIZE • CARRY BIT CLEAR IF ERROR 



C2TKGA TK-25 FRT END FUNC *3 
TEST t: SPACE RECORDS 
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SEQ 118 



4100 
4101 
4102 
4103 
4104 



4105 

4106 
4107 
4111 
4112 



4113 
4114 
4115 
4116 
4117 
4118 
4119 
4120 
4121 
4122 
4123 
4124 
4125 
4129 
4130 



4131 
4132 
4133 
4134 
4135 
4136 
4137 
4141 



4142 
4143 
4144 
4145 



023740 
023744 
023746 
023746 
023752 
0237 54 
023760 
023762 
023766 
023770 
023774 
023776 
024002 
024004 
024010 
024014 
024014 
024016 
024020 
024022 
024024 



004737 
103427 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001356 
004737 
016501 

104455 
000145 
003550 
011676 



016660 

000250 

002116 

177772 

177756 

030272 

0201 If 
000000 



I** 

5$i 



JSR 
BCS 
DELAY 



PC.SOTINIT 

101 

250 



iDO INITIALIZE ON CONTROLLER 
I BR IF INIT WAS OK 
l DELAY IF REQUIRED 



DEC 
RNE 

MOV 
ERRDF 



T25DLY 

51 

PC.FATCHK 

TSSR(R5).R1 

ERRNO.SFIERR.SFIMSG 



MOV 


♦250, (pn* 


.WORD 





MOV 


LIDLY.CPO* 


.WORD 





DEC 


-6(PC) 


BNE 


.-4 


DEC 


-22CPC) 


BNE 


.-20 



10$ t 



024024 012704 030110 



MOV 



♦T25PACKF.T,R4 



jDEC DELAY COUNTER 

iBR, IF LOOP IS REQUIRED 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

I CONTENTS OF Tr R REGISTER 

jFATAL ERROR TS: R WAS NOT OK 

TRAP CtERDF 

.WOflO 101 
.WOW) SFIERR 
.WORD SFIMSG 



l SUBROUTINE NEEDS PACKET AQORESS 



WRITE CHARACTERISTICS COTtlANO (CALL TO WRTCHR) 



024030 004737 0i0342 

024034 103407 

024036 004737 020116 

024042 010001 

024044 

024044 104456 

024046 000146 

024050 004 754 

024052 011676 



024054 016501 000000 

024060 032/01 000100 

024064 001406 

024066 

024066 104455 

024070 000147 

024072 030274 

024074 016360 

024076 004737 0201 70 



JSR 


PC. WRTCHR 


BCS 


14$ 


JSR 


PC.FATCK* 


MOV 


RO f Rl 


ERRHRD 


ERRNO.WRTMSG, SFIMSG 



> ISSUE WRITE CHARACTERISTICS 

iBR, IF COMMA*© ISSUED OK 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

I SAVE CONTENTS OF TSSR 

l^ITE CHARACTERISTIC FAILEJ 

TRAP C$ERHRO 

.WONO 102 
.WOPO WRTMSG 
.WORD SFIMSG 



1 
1 


CHECK 


FOR DRIVE OFF-LINE 






14$: 


MOV 


TSSR(R5),R1 


iREAO THE TSSR 






blT 


♦0FL.R1 


iCHECK FOR ORIVF. OFF LINE 






BEU 


15$ 


iBR, IF DRIVE IS ON LINE (GOOO) 






ERRDF 


ERRN0,T210FL,EXPREC 


I "DRIVE IS OFF-LINE' 1 (BAD) 

TRAP 

.WORD 
.WORD 
.WORD 


ClFRDf 

103 
T210FL 

EXPREC 




JSR 


PC.CKDROP 


jTRt AND CROP UNIT 





1*44444444444444444444444444444444444444444444*4444444444*44444*444 
I 
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SEQ 119 



4146 
4147 
4148 
4149 
4150 
4151 
4152 
4155 
4157 



4158 

4159 
4160 
4161 
4162 
4163 
4164 
4165 
4166 
4167 
4168 
4169 
4170 
4171 
4175 



4176 

4177 
4178 
4179 
4180 
4181 
4182 
4183 
4184 
4185 
4186 
4187 
4188 
4189 
4190 
4191 
4192 
4193 
4194 
4195 
4196 
4197 

4X98 



024102 
024106 
024110 
024112 
024116 
024116 
024120 
024122 
024124 
024126 
024126 



024130 
024134 
024136 
024142 
024 144 
024146 
024152 
024152 
024154 
024156 
024160 
024162 
024162 
024164 
024170 



024176 
024204 
024210 
024210 
0242J4 
024222 
024230 
024234 
024240 
024244 
024250 
02425? 
024254 



012737 
012 70* 

010337 
013777 
062737 
010465 
004737 
016501 
012702 
020102 
001411 
032701 



I ISSUE REWINO COMMANO TO SELECTED TAPE DRIVE 

I 

I ***********«**** + + ******* + + + ,*• + ****+***+**** + ♦ ** + *** + *************.4 



004737 010444 

103407 

010001 

004757 020.116 

104456 
000150 
031267 
011710 

104406 



15* : 



301: 



JSR PC, REWINO 

BCS 301 

MOV R0.R1 

JSR PC.FATCHK 

ERRHRD ERRNO , T25RWN , PKT55R 



CKLOOP 



l CALL TAPE REWINO COMMANO 

I BR, IF NO PROBLEM 

I SAVE TSSR 

j INC AND CHECK FOR MORE THAN 25 ERRORS 

I REWIND NOT ACCEPTED 

TRAP 
■ WORD 
.WORD 
.WORD 

i LOOP IF SELECTED 

TRAP 



ClERHRD 
104 

T25RWN 
PKTSSR 



C1CLP1 



jREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 



I*' 



013701 030136 

010102 

052 702 000002 

020102 

001406 

004737 020116 

104456 
000151 
03O457 
016360 

104406 

012703 000400 

0157*7 0O3072 



MOV 


T25BFR»6,R1 


MOV 


R1.R2 


BIS 


•6IT1.R2 


CMF 


R1.H2 


BEQ 


401 


JSR 


PC.FATCHK 


ERRHRD 


ERRNO, T2580T.EXPREC 



401: 



030242 



CKLOOP 

MOV 
MOV 



♦256., R3 
FREE,T25RB 



iPICK UP XSTO 

I SET UP EXPECTED 

I SET BOT BIT IN EXPECTED 

iDOES EXP • REC'D 

iBR. IF EQUAL COK) 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

I TAPE NOT AT BOT AFTER REWINO 

TRAP 
.WORO 
.WORD 
.WORO 

lLOOP IF SELECTED 

TRAP 

I RECORD SIZE 

j STARTING WRITE BUFFER ADDRESS 



CtERHRD 
105 

T25B0T 
EXPREC 

CICLP1 



WRITE DATA.ACK.CVC-1 COMMAND 



140005 
030240 

030246 

030270 
000001 

177/76 
017134 

oooooo 

000200 



000004 



030240 



15S650 
030270 



65*1 



MOV 


♦140005, T25PK3 


MOV 


OT25PK3.R4 


MOV 


R3.T25SZ 


MOV 


T25CNT.BFREE 


ADO 


♦1.T25CNT 


MOV 


R4,TSD6(R5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5),R1 


MOV 


♦SSR,R2 


CMP 


R1.R2 


BEQ 


75* 


BIT 


♦BIT2.RI 



iWRITE DATA.ACK.CVC-1 COMMAND 
I SET UP R4 WITH PACKET ADDRESS 

tSET UP RECORD SIZE IN PACKET 

I LOAD UP RECORD COUNTER IN WRT BUFFER 

iGET READY FOR NEXT RECORD 

iISSL* COMMANO 

iWAIT FOR SSR TO SET 

jGET TSSR CONTENTS 

iSET UP EXPECTED 

I ARE THE1 EQUAL 

|8R, IF OK 

iCHECK FOR TAPE STATUS ALERT 



CZTKGA TK-25 FRT ENO FUNC *3 
TEST l: SPACE RECORDS 
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SEQ 120 



4199 

4200 
4?04 
4205 
4206 
4207 



4208 

4209 
4210 
4211 
4212 
4213 
4214 
4215 
4216 
4217 
4218 
4219 
4220 
1221 
4222 
4223 
4224 
4225 
4229 



024260 
024262 



024266 
024266 
024270 
024272 
024274 
024276 
024276 
024300 
024302 
024306 
024310 
024312 



024312 
024316 
024320 
024324 
024326 
024330 
024334 
024334 
024336 
024340 
024342 



001014 

004737 020116 



104457 
000152 
005011 
011710 

104406 

005203 

022703 001000 

001540 

000415 



BNE 

JSR 



1201 
PC.FATCHK 



75$ 



ERRSOFT ERRNO.WRTERR.PKTSSR 



CKLOOP 

INC R3 

CMP ♦512,, R3 

BNE 65$ 

BR 1251 



l BR, IF TSA IS SET (SUSPECT IS EOT) 
l INC AND CMECK F0« MORE THAN 25 ERRORS 
I SOFT ERROR GENERATED BECAUSE THE 
i WRITE COMMAND IS NOT BEING CHECKED 
I HERE. IT WAS CHECKED IN LEAH2 
jTSSR INCORRECT AFTER WRITE DATA 

TRAP CIERSOFT 
.WORD 106 
.WOOD WRTERR 
.WORD PKTSSR 
I LOOP IF SELECTED 

TRAP CICLP1 
I BUMP RECORD SIZE 
tEND OF RECORD YET 
»BR, IF MORE RECORDS TO WRITE 
j ENOUGH RECORDS 



013701 030136 

010102 

052702 000001 

020102 

001406 

004737 020116 

104455 
000153 
030613 
016360 



1201 j 

iREAD MESSAGE BUFFER EXTENOED STATUS REGISTER ZERO CXSTO) 

I +********+***********««*«*********4******* ******************* ***** 

I QUICK CHECK FOR EOT SET 

I SET UP EXPECTED 

»SET THE EOT BIT XSTO 

iIS THE EOT BIT SET IN XSTO 

iBR, IF SET (GOOO) 

j INC ANO CHECK FOR MORE THAN 25 ERRORS 

iDEVICE FATAL NOT EOT FOUND ETC. 

TRAP CIERDF 
.WORD 107 
.WORD T25NET 
.WORD EXPREC 



MOV 


T258FR*6,R1 


MOV 


R1.R2 


BIS 


♦fiIT0,R2 


CMP 


R1.R2 


BEQ 


125$ 


JSR 


PC,FATChK 


ERRDF 


ERRN0.T25NET, EXPREC 



CZTKGA TK-25 FRT ENO FUNC 03 
TEST it SPACE RECORDS 



4231 
4232 
4233 
4234 
4235 
4236 
4237 
4238 
4239 
4240 
4241 
4245 



4246 
4247 



4248 
4249 
4250 
4251 



024344 



024344 
024350 
024352 
024354 
024360 
024360 
024362 
024364 
024366 
024370 
024370 
024372 
024372 
024372 
024374 
024402 
024404 
024410 



004737 010444 

103407 

010001 

004737 020116 

104456 
000154 
031267 
011710 

104406 



104403 

023727 002170 

002402 

004737 020170 
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SEQ 121 



000031 



125$; 

j *** ******* ********** ** ****** + + + + 4 ******* 44 * 44(414(4141 * 44 * ****** ****** * 

I 

i ISSUE REWINO COMMANO TO SELECTED TAPE DRIVE 

J 

| ** 4********4************ **************** ************** **** ******* ^ 



130$ 



999$: 



JSR PC, REWINO 

BCS 130$ 

MOV R0,R1 

JSR PC.TATCHK 

ERRHRD ERRNO , T25RWN , PKTSSR 



CKLOOP 
ENDSUB 



CMP FATFLG.025, 

BLT 999$ 

JSR PC.CKDROP 



» CALL TAPE REWIND COMMAND 

|BR, IF NO PROBLEM 

I SAVE TSSR 

i INC AND CHECK FOR MORE THAN 25 ERRORS 

1 REWIND NOT ACCEPTED 

TRAP CIERHRD 

.WORD 108 
.WORD T25RWN 
.WORD PKTSSR 
j LOOP IF SELECTED 

TRAP CICLP1 

I >>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 

L10037: 

TRAP CfESUB 
j IS ERROR COUNT AT 25 
j BR, IF LESS THAN 25 
j TRY TO DROP THE UNIT 



CZTKGA TK-25 FRT END FUNC 43 
TEST 1: SPACE RECORDS 
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SEQ 122 



4253 
4254 
4255 
4256 

4257 
4258 
4259 
4260 
4261 
4262 
4263 



4264 
4265 
4266 
4267 
4268 
4269 
4270 
4271 
4272 
4273 
4274 
4275 
4276 
4280 
4281 



4282 
428? 
4284 
4285 
4286 
4287 
4288 
4289 
4290 
4291 
4292 
4293 
4294 
4,>9fl 
4299 



4300 
4301 
4302 
4303 
4304 
4305 



024410 
024410 
024410 
024412 
024416 
024422 



104402 

004737 031500 

004737 031572 

004737 031634 



024426 
024432 
024434 
024440 
024442 
024442 
024444 
024446 
024450 
024452 



004737 016660 

103407 

004737 020116 

010001 

104455 
000155 
003550 
011676 



024452 012704 030110 



024456 004737 010342 

024462 103407 

024464 004737 020116 

024470 010001 

024472 

024472 104456 

024474 000156 

024476 0O4754 

024500 011676 



TEST 1, SUBTEST 2 

VERIFIES THAT SPACE RECORDS FORWARD CAN SPACE ONE 
RECORD OFF BOT AND CAUSES BOT STATUS TO BE CLEARED. 



BGNSUB 



JSR 
JSR 
JSR 



PC.T25REST 

PC.T25RT2 

PC.T25RT3 



j>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T1.2: 

TRAP C*BSUB 

j SET COMMANO PACKET 
I SET UP OTHER COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 



I ******** ****************** **************************************** 

I ISSl€ CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 

i 

l ****************************************************************** 

jDO INITIALIZE ON CONTROLLER 

i BR IF INIT WAS OK 

; INC ANO CHECK FOR MORE THAN 25 ERRORS 

i CONTENTS OF TSSR REGISTER 

I FATAL ERROR TSSR WAS NOT OK 

TRAP C$ERDF 
. WORD 109 
.WORD SFIERR 
.WORD SFIMSG 



JSR 


PCSOFINIT 


BCS 


10$ 


JSR 


PC.FATCHK 


MOV 


R0.R1 


ERRDF 


ERRNO, SFIERR, SFIMSG 



10$: 



MOV 



*T25PACKET,R4 



t SUBROUTINE NEEDS PACKET ADORESS 



j****************************************************************** 

jWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHW) 

i 
i****************************************************************** 



JSR PC.WRTCHR 

BCS 15$ 

JSR PC.FATCHK 

MOV R0.R1 

ERRHRO ERRNO . WRTMSG , SFIMSG 



f ISSUE WRITE CHARACTERISTICS 

i BR. IF COMMAND ISSUED OK 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

j SAVE CONTENTS OF TSSR 

tWRITE CHARACTERISTIC FAILED 

TRAP C$ERHRD 

.WORD 110 
.WORD WRTMSG 
.WORD SFIMSG 

t ****************************************************************** 

I ISSUE REWINO COMMAND TO SELECTED TAPE DRIVE 

j ********** ******************* ************************************* 



CZTKGA TK-25 FRT END FUNC *3 
TEST It SPACE RECORDS 
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4306 
4307 
4308 
4309 
4310 
4314 



4315 

4316 
4317 
4318 
4319 
4320 
4321 
4322 
4323 
4324 
4325 
4326 
4327 
4328 
4332 



4333 

4334 
4335 
4336 
4337 
4338 
4339 
4340 
4341 
4342 
4343 
4344 
4345 
4346 
4347 
4348 
4349 
4350 
4351 
4352 
4353 
4357 



024502 
024506 
024510 
024512 
024516 
024516 
024520 
024522 
024524 
024526 
024526 



024530 
024534 
024536 
024542 
024544 
024546 
024552 
024552 
024554 
024556 
024560 
024562 
024562 
024564 



024572 
024600 
024604 
024604 
024610 
024614 
024620 
024624 
024626 
024630 
024634 
024636 
024642 
024642 
024644 
024646 
024650 



004737 
103407 
010001 
004737 

104456 
000157 
031267 
011710 

104406 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
000160 
030457 
016360 

104406 
012737 



012737 
012704 

010465 
004737 
016501 
012702 
C20102 
001411 
032701 
001006 
0O4737 

104456 
000161 
030377 
016360 



010444 
020116 



030136 
000002 

020116 



140010 
030240 

177776 
017134 
000000 
000200 



000OO4 
020116 



SEQ 123 



000001 030242 



030240 



15$ 



30$ 



JSR PC, REWIND 

BCS 301 

MOV RO.Rl 

JSR PC.FATCHK 

ERRHRD ERRNO, T25RWN.PKTSSR 



CKLOOP 



{CALL TAPE REWINO COMMAND 

i BR. IF NO PROBLEM 

I SAVE TSSR 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 

I REWIND NOT ACCEPTED 

TRAP CIERHRD 
.WORD 111 
.WORD T25RWN 
.WORD PKTSSR 

I LOOP IF SELECTED 

TRAP CJCLP1 



MOV 


T25BFRf6,Rl 


MOV 


R1.R2 


BIS 


«BIT1,R2 


CMP 


R1.R2 


BEQ 


40$ 


JSR 


PC,FATCHK 



, A****************************** * + * + * + + * + ***** + ***** + * + ************ 

1 

{READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 

i 

I PICK UP XSTO 

I SET UP EXPECTED 

I SET BOT BIT IN EXPECTED 

i DOES EXP - REC'O 

I BR, IF EQU/X COK) 

j INC ANO CHECK FOR MORE THAN 25 ERRORS 

I TAPE NOT AT BOT AFTER REWIND 

^mAP CIERHRD 

.WORD 112 
.WORD T2580T 
.WORD EXPREC 
40$: CKLOOP {LOOP IF SELECTED 

TRAP C$CLP1 

MOV *O0O001,T25R8 {NUMBER OF RECORDS TO SPACE OVER 

I ****♦»***♦♦**♦*♦******************♦**♦♦****+***♦**♦♦***♦*«♦******* 

, SPACE FORWARD. ACK,CVC-1 COMMANO 
I 



ERRHRD ERRNO ♦ T25B0T , EXPREC 



65$: 



MOV 


*140010,T25PK3 


MOV 


♦T25PK3.R4 


MOV 


R4,TSD6(R5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5),R1 


MOV 


♦SSR.R2 


CMP 


R1,R2 


BEQ 


751 


BIT 


<K3IT2,R1 


BNE 


751 


JSR 


PC.FATCHK 



ERRHRD ERRNO . T25WDE , EXPREC 



{SPACE FORWARD. ACK.CVC-1 COMMAND 
{SET UP R4 WITH PACKET ADDRESS 

{ISSUE COMMAND 

{WAIT FOR SSR TO SET 

{GET TSSR CONTENTS 

{SET UP EXPECTED 

{ARE THEY EQUAL 

tPR, IF OK 

ILHECK FOR TAPE STATUS ALERT 

{BR, IF TSA IS SET CSUSPECT IS EOT) 

{INC ANO CHECK FOR MORE THAN 25 ERRORS 

j TSSR INCORRECT AFTER READ DATA 

TRAP CIERHRD 
.WORD 113 
.WORD T25WDE 
.WORD EXPREC 
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SEQ 124 



4358 

4359 
4360 
4361 
4362 
4363 
4364 
4365 
4366 
4367 
4368 
4369 
4370 
4371 
4372 
4376 



4377 
4378 
4379 
4380 
4381 
4382 
4383 
4384 
4385 
4366 
4387 
4388 
4389 
4390 
4391 
4392 
4393 
4394 
4395 
4399 



4400 

4401 
4402 
4403 
4404 
4405 
4409 



024652 
024652 
024654 



104406 



024654 
024660 
024662 
024666 
024670 
024672 
024676 
024676 
024700 
024702 
024704 
024706 
024712 



024720 
024726 
024754 
024 MO 
024744 
024750 
024754 
024760 
024762 
024 764 
024770 
024770 
024772 
024774 
024776 
025000 
025000 
025002 
025O06 
025012 
025014 
025016 
025022 
025022 
025024 
025026 
025030 



013701 
010102 
042702 
020102 
001406 
0O4737 

104456 
000162 
030752 
016360 
0O4737 
012737 



012737 
013737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000163 
005104 
011710 

104406 

017701 
012702 
020102 
001406 
004737 

104456 
000164 
030667 
016360 



030136 
000002 

020116 



031634 
000401 



140001 
003072 
030240 
177776 
017134 
000000 
000200 



020116 



156064 
000001 



020116 



75$: 
120$: 



CKLOOP 



{LOOP IF SELECTED 



TRAP 



C$CLP1 



j ********************** ****** ************************** ************ 

t 

tREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 

I 

J ********************************************************* *A ******* 

» QUICK CHECK FOR BOT SET 
I SET UP EXPECTED 
, CLEAR THE BOT BIT CXSTO) 
iIS THE EOT BIT SET IN XSTO 
iBR, IF SET CGOOO) 

j INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T25BNC, EXPREC jBOT NOT CLEARED AFTER SPACE FROM BOT 



MOV 


T25BFR*6,R1 


MOV 


R1.R2 


BIC 


♦BIT1.R2 


CMP 


R1.R2 


BEQ 


125$ 


JSR 


PC.FATCHK 



030246 



125$: JSR PC.T25RT3 

MOV #257.,T25SZ 



j CLEAN UP PACKET 

j SET THE CORRECT SIZE UP 



TRAP 


C$ERHRD 


.WORD 


114 


.WORD 


T258NC 


.WORD 


EXPREC 



030240 
030242 



MOV 


♦140001, T25PK3 


MOV 


FREE.T25RB 


MOV 


♦T25PK3.R4 


MOV 


R4,TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


♦SSR.R2 


CMP 


R1.R2 


BEQ 


190$ 


JSR 


PC.FATCHK 



J ****************************************************************** 

j READ DATA COMMAND IN PLACE 

i 

t ****************************************************************** 

j READ DATA COMMANO IN PLACE 

i READ BUFFER ADDRESS TO PACKET 

|R4 - POINTER TO PACKET 

i ISSUE COMMANO 

jWAIT FOR SSR TO SET 

I GET TSSR CONTENTS 

j SET UP EXPECTED 

j ARE THEY EQUAL 

jBR, IF OK ESP. FUNCTION REJECT 

j INC AND CHECK FOR MORE THAN 25 ERRORS 

j TSSR INCORRECT AFTER READ DATA CMO 

TRAP CIERHRD 
.WORD 115 
.WORD RDERR 
.WORD PKTSSR 
190$: CKLOOP jLOOP IF SELECTED 

TRAP C$CLP1 
i GET FIRST WORD FROM BUFFER 
I SET UP EXPECTED 
i WAS RECORD NUMBERED 1 
i BR, IF CORRECT RECORD 

l INC AND CHECK FOR MORE THAN 25 ERRORS 
I SHOULD HAVE BEEN RECORD NUMBER 1 

TRAP CIERHRD 
.WORD 116 
.WORD T25WNG 
.WORD EXPREC 



ERRHRD ERRNO , RDERR . PK TSSR 



MOV 


SFREE.R1 


MOV 


♦ 1.R2 


CMP 


R1.R2 


BEQ 


200$ 


JSR 


PC.FATCHK 



ERRHRD ERRNO , T25WNG , EXPREC 
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SEQ 125 



4410 


025032 






4411 


025032 
025032 








025032 


104403 




4412 


025034 


023727 


002170 


4413 


025042 


002402 




4414 


025044 


004737 


020170 


4415 


025050 







200* 



000031 



999$ 



ENDSUe 



CMP 
BUT 
JSR 



FATFLG.025, 

999$ 

PCCKDROP 



{>>>>>>>>>>>> £N0 SUBTEST >>>>>>>>>>>> 

L 10040 j 

TRAP CJESUB 
iIS ERROR COUNT AT 25 
iBR, IF LESS THAN 25 
I TRY TO DROP THE UNIT 



CZTKGA TK-25 FRT END FUNC 03 
TEST 1: SPACE RECORDS 
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SEQ 126 



4417 
4418 
4419 
4420 
4421 
4422 
4423 
4424 
4425 
4426 
4427 



4428 
4429 
4430 
4431 
4432 
4433 
4434 
4435 
4436 
4437 
4438 
4439 
4440 
4444 
4445 



4446 
4447 
4448 
4449 
4450 
4451 
4452 
4453 
4454 
4455 
4456 
4457 
4458 
4462 
4463 



4464 



4466 
4467 
4468 



I ♦ 



025050 
025050 
025050 
025052 
025056 
025062 



025066 
025072 
025074 
025100 
025102 
025102 
025104 
025106 
025110 
025112 



025116 
025122 
025124 
025130 
025132 
025132 
025134 
025136 
025140 
025142 
025142 



104402 

004737 031500 

004737 031572 

00473? 031634 



004737 016660 

103407 

004737 020116 

010001 

104455 
000165 
003550 
011676 



025112 012704 030110 



004737 010342 

103407 

004737 020116 

010001 

104456 
000166 
004754 
011676 

104406 



iTEST 1, SUBTEST 3 

( 

{VERIFIES THAT SPACE RECORDS REVERSE CAN SPACE BACK 

{OVER THE FIRST RECORD ON TAPE. 



i - 



BGNSUB 



JSR 
JSR 
JSR 



PC.T25REST 

PC.T25RT2 

PC.T25RT3 



,>>>>>>>>>>>> BEGIN SlGTEST >>>>>>>>>>>> 

T1.3: 

TRAP C$BSUB 
{SET COMMAND PACKET 
jSET UP OTHER COMMANO PACKET 
{SET UP OTHER COMMAND PACKET 



J****************************************************************** 

{ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 

i*******.***.************** * + + + + + + + *+* + * + + * + + + + + + +**+. + + + ** mmm* + 

{DO INITIALIZE ON CONTROLLER 

{BR IF INIT WAS OK 

j INC AND CHECK FOR MORE THAN 25 ERRORS 

{CONTENTS OF TSSR REGISTER 

{FATAL ERROR TSSR WAS NOT OK 

TRAP CIERDF 
.WORD 117 
.WORD SFIERR 
.WORD SFIMSG 



JSR 


PCSOFINIT 


BCS 


20$ 


JSR 


PC.FATCHK 


MOV 


R0,R1 


ERRDF 


ERRNO, SFIERR. SFIMSG 



20$: 



MOV 



*T25PACKET,R4 



{SUBROUTINE NEEDS PACKET ADDRESS 



j * + **♦*********** + ****** + ** + *** + + * + **** + ***** + + ********** + *+**** + ** 

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

i 

j A********************** ft***************************** ********** +4 4 



25$} 



JSR PC.WRTCHR 

BCS 25$ 

JSR PC.FATCHK 

MOV R0.R1 

ERRHRD ERRNO , WRTMSG , SFIMSG 



CKLOOP 



{ISSUE WRITE CHARACTERISTICS 

j BR, IF COMMAND ISSUED OK 

{INC AND CHECK FOR MORE THAN 25 ERRORS 

{SAVE CONTENTS OF TSSR 

{WRITE CHARACTERISTIC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

{LOOP IF SELECTED 

TRAP 



C$ERHRD 

118 

WRTMSG 

SFIMSG 



C$CLP1 



{ 

{ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



CZTKGA TK-25 FRT END FUNC 43 
TEST 1: SPACE RECORDS 



4469 
4470 
4471 
4472 
4473 
4474 
4475 
4479 



4480 

4481 
4482 
4483 
4484 
4485 
4486 
4487 
4488 
4489 
4490 
4491 
4492 
4403 
4497 



4498 

4499 
45.00 
45Ci 
4502 
4503 
4504 
4505 
4506 
450? 
4508 
4509 
4510 
4511 
4515 



45H 

4517 

45ir 

451S 



025144 
025150 
025152 
025154 
025160 
025160 
025162 
025164 
025166 
025170 
025170 



004737 
103407 
010001 
004737 

104456 
000167 
031267 
011710 

104406 



025172 
025176 
025200 
025204 
025206 
025210 
025214 
025214 
025216 
025220 
025222 
025124 
025224 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
000170 
030457 
016360 

104406 



025226 
025232 
025236 
025240 
■'25744 
U2b250 
025250 
025252 
023254 
025256 
)25260 
025260 
025262 



012703 
004737 
103410 
016501 
004737 

104456 
orvoi7l 
030377 
011756 

104406 
012737 



010444 
020116 



030136 
000002 

020116 



OOOOOl 
010144 

OOOOOO 
020116 
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SEQ 127 



OOOOOl 030242 



j 444*****4**44444*4444444**4444444**44*4444***4****4**444444***4**4 



301; 



JSR PC, REWIND 

BCS 30$ 

MOV R0.P1 

JSR PC.FATCHK 

ERRHRD ERRNO , T25RWN , PKTSSR 



CKLOOP 



l CALL TAPE REWIND COMMAND 

I BR, IF NO PROBLEM 

I SAVE TSSR 

j INC AND CHECK FOR MORE THAN 25 ERRORS 

I REWIND NOT ACCEPTED 

TRAP C$ERHRD 
.WORD 119 
.WORD T25RWN 
.WORD PKTSSR 

l LOOP IF SELECTED 

TRAP C$CLP1 



144*444*444444444*444****444444444******44*******44**44444444*4444* 

READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 

< 44*4444*44*4**44**44444*4444***4***4***4444444 ************ 4*****4* 

jPICK UP XSTO 

iSET UP EXPECTED 

i SET B01 BIT IN EXPECTED 

I DOES EXP - REC'D 

iBR, IK EQUAL (OK) 

i INC AND CHECK FOR MORE THAN 25 ERRORS 

jTAPE NOT AT BOT AFTER REWIND 

TRAP C5ERHRD 
.WORD 120 
.WORD T25B0T 
.WORD EXPREC 
40$: CKLOOP (LOOP IF SELECTED 

T RAP C$CLP1 



MOV 


T25BFR*6,R1 


MOV 


R1.R2 


BIS 


•BXTI.RJ 


CMP 


R1.R2 


BEO 


40$ 


JSR 


PC.FATCHK 



ERRHRD ERRNO , T25B0T , EXPREC 



1*****4*********4***4***4***4***44*44,4444****4***4************4*;*** 

I 

.ISSUE SPACE RECORDS COMMAND VALUE IN S3 SETS NUMBER OF RECORDS 
jBIT 15 SETS DIRECTION - 0-FORWARD 1 -REVERSE 

i 

1*4*444***444***44**4**********44********** **44.**«;*444*444 44***4*** 

tNUTOER OF RECORDS TO SPACE FORWARD 
iCALL SPACE COMMAND 
I CHECK FOR ERROR 
jGET TSSR CONTENTS 

jSNC AND CHECK FOR MORE THAN 25 ERRORS 

j SPACE FORWARD FAILED 

TRAP C$ERHRD 
.UORD 121 
.WOHO T25UDE 
.WORD SFFMSG 

lLOOP IF SELECTED 

Tf}/\p C$CLP1 

j NUMBER OF RECORDS TO SPACE OVER 



MOV 


♦OOOOOl. R3 


JSR 


PC, SPACE 


BCS 


50$ 


MOV 


TSSRCR5),R1 


JSR 


PC.FATCHK 


ERRHRD 


ERRNO. T25WDE, SFFMSG 



50$ 



CKLOOP 

MOV #1,T25RB 

; 444*4444*444444**444444444444 44**44***444*4444*44****4*4 44 44 4 4* *** 



CZTKGA TK-25 FRT END FUNC 43 
TEST 1: SPACE RECORDS 



4520 
4521 
4522 
4523 
4524 
4525 
4526 
4527 
4528 
4529 
4530 
4531 
4532 
4533 
4534 
4538 



4539 

4540 
4541 
4542 
4543 
4544 
4545 
4546 
454 7 
4548 
4549 
4550 
4551 
4552 
4553 
4554 
4555 
4556 
4557 
4558 
4559 
4563 



4564 

4565 
4566 
4567 

4568 
4569 
4573 



025270 
025276 
025302 
025302 
025306 
025312 
025316 
025322 
025324 
025326 
025332 
025332 
025334 
025336 
025340 
025342 
025342 
025344 
025344 
025350 



012737 
012704 

010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000172 
030377 
011710 

104406 

012703 
013737 



025356 
025364 
025370 
025374 
025400 
025404 
025410 
025414 
025416 
025420 
025424 
025424 
025426 
025430 
025432 
025434 
025434 
025436 
025442 
025446 
025450 
025452 
025456 
025456 
025460 



012737 
012704 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
0O4737 

104456 
000173 
005104 
011710 

104406 
017701 
012702 
020102 
001406 
004737 

104456 
000174 



140410 
030240 

177776 
017134 
000000 
000200 



020116 



000400 
003072 



140001 
030240 
030246 
177776 
017134 
000000 
000200 



020116 



155430 
000000 



020116 
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SEQ 128 



iSPACE REVERSE.ACK.CVC-1 COMMAND 

I 

j ********************************* ******************************* ** 



030240 



65$ 



MOV 


M40410.T25PK3 


MOV 


*T25PK3,R4 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


0SSR.R2 


CMP 


R1,R2 


BEQ 


75* 


JSR 


PC.FATCHK 



ERRHRD ERRNO, T25WDE.PKTSSR 



I SPACE REVERSE, ACK.CVC«1 COMMAND 
I SET UP R4 WITH PACKET ADDRESS 

I ISSUE COMMAND 

I WAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

{SET UP EXPECTED 

{ARE THEY EQUAL 

{BR. IF OK 

•INC AND CHECK FOR MORE THAN 25 ERRORS 

{TSSR INCORRECT AFTER READ DATA 



75$; 
120$ 



030242 



CKLOOP 



MOV 
MOV 



jLOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



CIERHRD 
122 

T25WDE 
PKTSSR 

CiCLPl 



0256., R3 
FREE.T25RB 



{RECORD SIZE 

{STARTING READ BUFFER ADDRESS 



030240 



j *********** ***************+**************< ************************ 

{READ DATA.ACK.CVC-1 COMMAND 

I *************** *********** ************************** * ****** ******* 

{READ DATA,ACK,CVC-1 COMMAND 
165$: MOV *T25PK3,R4 {SET UP R4 WITH PACKET ADDRESS 

{SET UP RECORD SIZE IN PACKET 
I ISSUE COMMANO 
{WAIT FOR SSR TO SET 
{GET TSSR CONTENTS 
,SET UP EXPECTED 
{ARE THEY EQUAL 
iBR, IF OK 

{INC ANO CHECK FOR MORE THAN 25 ERRORS 
lTSSR INCORRECT AFTER READ DATA 

TRAP CIERHRD 
.WORD 123 
.WORD RDERR 
.WORD PKTSSN 
170$ j CKLOOP {LOOP IF SELECTED 

ypAp CiCLPl 
jGET FIRST WORD FROM BUFFER 
iSET UP EXPECTED 
{WAS RECORD NUMBERED 1 
iBR, IF CORRECT RECORD 

{INC ANO CHECK FOR MORE THAN 25 ERRORS 
{SHOULD HAVE BEEN RECORD NUMBER 1 

TRAP CIEHHRU 
.WORD 124 



MOV 


♦140001, T25PK3 


MOV 


♦T25PK3.R4 


MOV 


R3.T25SZ 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


*SSR,R2 


CMP 


R1.R2 


BEQ 


1701 


JSR 


PC.FATCHK 



ERRHRD ERRNO, RDERR, PKTSSR 



MOV 


QFREE.Rl 


MOV 


*0,R2 


CMP 


R1.R2 


BEQ 


200$ 


JSR 


PC.FATCHK 



ERRHRD ERRNO , T25WNG • EXPREC 



?^ GA lI K S^ci R k^D F S UNC « 
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SEQ 129 



025462 
025464 

4574 025466 

4575 025466 
025466 
025466 

4576 025470 

4577 025476 

4578 025500 

4579 025504 



030667 
016360 



104403 
023727 
002402 
004737 



200$: 



002170 000031 
020170 



999$: 



ENDSUB 



CMP 
BLT 
JSR 



FATFLG.425, 

999$ 

PCCKDROP 



.WORD 
.WORD 



T25WNG 
E.XPREC 



!>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 

L10041: 

TRAP CfESUB 
1 15 ERROR COUNT AT 25 
jDR, IF LESS THAN 25 
I TRY TO DROP THE UNIT 



C/TKGA TK-25 FRT END FUNC 03 
TEST 1: SPACE RECORDS 



4581 
4582 
4583 
4584 
4585 
4586 
4587 
4588 
4589 
4590 
459.1 
4592 
4593 
4594 



4595 
4596 
4597 
4598 
4599 
4600 
4601 
4602 
4603 
4604 
4605 
4606 
4607 
4608 
4609 
4610 



025504 
025504 
025504 
025506 
025512 
025516 
025522 
025530 
025536 



4611 
4612 
4613 
4614 
4618 



4619 
4620 
4621 
4622 
4623 
4624 
4625 
4o26 



025544 
025550 
025552 
025552 
025556 
025560 
025564 
025566 
025572 
025574 
025600 
025602 
025606 
025610 
025614 
025620 
025620 
025622 
025624 
025626 
025630 



104402 
004737 
004737 
004737 
013737 
162737 
013737 



004 737 
103427 

012 727 

000000 

01372. 

00000 

00536 f 

001375 

005367 

001367 

005337 

001356 

016501 

004737 

104455 
000175 
003550 
011676 



031500 
03^572 
031634 
030270 
000002 
030270 



016660 

000250 

002116 

177772 

177756 

030272 

000000 
020116 



025630 012704 030110 
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SEQ 130 



030266 
030266 
030272 



j TEST 1, SUBTEST 4 

! VERIFIES THAT SPACE RECORDS FORWARD CAN SPACE A 

{MULTIPLE NUMBER OF RECORDS C2 THROUGH 64K OR THE 

{MAXIMUM NUMBER OF RECORDS WRITTEN ON THE TAPE, 

j WHICH EVER IS LESS. 

I 

} 

i 

i " 

BGNSUB |>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T1.4: 

TRAP C$3SUB 
;SET COMMANO PACKET 
j SET UP OTHER COMMAND PACKET 
jSET UP OTHER COMMAND PACKET 
j HOLD NUMBER OF RECORDS 
I ACTUAL NUMBER OF RECORDS ON TAPE 
I SET UP REWIND DELAY COUNTER 

; ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 

i 

10$: 



JSR 


PC.T25REST 


JSR 


PCT25RT2 


JSR 


PC.T25RT3 


MOV 


T25CNT.T25CN2 


SUB 


02.T25CN2 


MOV 


T25CNT.T25DLY 



20$: 



JSR 


PC.SOFINIT 


iDO INITIALIZE ON CONTROLLER 




BCS 


20$ 


jBR IF INIT WAS OK 




DELAY 


250 


(WAIT ABOUT .25 SECONDS 








MOV 


#250,CPC)* 






.WORD 









MOV 


LIDLY.CPC)* 






.WORD 









DEC 


-6CPC) 






BNE 


.-4 






DEC 


-22CPC) 






BNE 


.-20 


DEC 


T25DLY 


j DEC COUNTER 




BNE 


101 


i BR, IF MORE LOOPS REQUIRED 




MOV 


TSSR(R5),R1 


» CONTENTS OF TSSR REGISTER 


JSR 


PC.FATCHK 


j INC ANO CHECK FOR MORE THAN 25 


ERRORS 


ERRDF 


ERRNO.SFIERR.SFIMSG 


{FATAL ERROR TSSR WAS NOT OK 








TRAP 


CIERDF 






.WORD 


125 






.WORD 


SFIERR 






.WORD 


SFIMSG 



MOV 



0T25PACKET.R4 



i SUBROUTINE NEEDS PACKET ADDRESS 



{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

J 



8 



C2TKGA TK-25 FRT ENO TUNC *3 
TEST Is SPACE RECORDS 



Bll 
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SEQ 131 



4627 
4628 
4629 
4630 
4631 
4635 
4636 



4637 

4638 
4639 
4640 
4641 
4642 
4643 
4644 
4645 
4646 
464^ 
4648 
4652 



4653 

4654 

465'5 
46*6 
465^ 
4658 

4659 
4660 
4661 
4662 
4663 
4664 
4665 
4666 
4667 
4668 
4669 
4670 
4671 
4672 
4673 
4674 
4675 
4676 
4677 
4678 
4679 



025634 
025640 
025642 
025646 
025650 
025650 
025652 
025654 
025656 
025660 
025660 



C25662 
025666 
025670 
025672 
025676 
025676 
025700 
025702 
025704 
025706 
025706 
025710 
025714 
025720 
025722 
025724 
025726 
025730 
025732 
025736 



025742 
025750 
025754 
025754 
025762 
025766 
025772 
0257 76 
026002 
026QQ4 



004737 
103407 
010001 
004737 

104456 
000177 
031267 
011710 

104406 
013701 
012702 
020201 
003002 
010103 
000401 
010203 
162703 
010337 



012737 
012704 

015737 
010465 
004737 
016501 
012702 
020102 
001425 



004737 010342 

103407 

004737 020116 

010001 

104456 
000176 
004754 
011676 

104406 



25$: 



JSR PC.WRTCMR 

BCS 231 

JSR PC.FATCHK 

MOV RO.Rl 

ERRHRD ERRNO . WRTMSG , SF IMSG 



CKLOOP 



» ISSUE WRITE CHARACTERISTICS 

i BR. IF COMMAND ISSUED OK 

l INC AND CHECK FOR MORE THAN 25 ERRORS 

»5AVE CONTENTS OF TSSR 

I WRITE CHARACTERISTIC 



lLOOP IF SELECTED 



FAILED 
TRAP 
.WORO 
.WORD 
.WORO 

TRAP 



C$ERHRD 
126 

WRTMSG 
SFIMSG 

CICLP1 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



010444 
020116 



30*t 



JSR 
BCS 

MOV 
JSR 
ERRHRD 



CKLOOP 



PC .REWIND 

301 

RO.Rl 

PC.FATCHK 

ERRN0.T25RWN.PK TSSR 



I CALL TAPE REWIND CO^AND 

I BR. IF NO PROBLEM 

i SAVE TSSR 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

iREWINO NOT ACCEPTED 



TRAP 

.WORO 
.WORO 
.WORO 



030266 
177776 



000001 
030242 





MOV 


T25CN2.R1 




MOV 


♦65534.. R2 




CMP 


R2.R1 




BGT 


461 




MOV 


R1.R3 




BR 


47$ 


461: 


MOV 


R2.R3 


47$i 


SUB 


#1.R3 




MOV 


R3.T25RB 



lLOOP IF SELECTED 

TRAP 
iNUT«ER OF RECOROS ON TAPE 
i MAX IT CAN SPACE OVER 
I WHICH VALUE CAN WE USE 
iBR. IF # WRITTEN > 64K 
i« WRITTEN CAN BE USED 
I MOVE ON 
i USE MAX NUMBER 
iDON'T GO ALL THE WAY YET 
iNUT«ER OF RECOROS TO SPACE 



CIERHRO 
127 

T25RH4 
PKTSSR 

C$CLP1 



OVER 



SPACE FORWARO,ACK,CVC-J COftlAND 



140010 
030240 

030266 
177776 
017134 
000000 
000200 



030240 



03Q272 



65$ t 



67${ 



MOV 


♦140010, T25PK3 


MOV 


♦T25PK3.R4 


MOV 


T25CN2.T250LY 


MOV 


R4,TSDB(R3) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),Ri 


MOV 


♦SSR.R2 


CMP 


P1.R2 


BEQ 


751 



I SPACE FORWARO,ACK f CVC-l COMMAND 
l SET UP R4 WITH PACKET AOORESS 

iN^ER OF RECOROS USED AS DELAY CQUHIfcR 

I ISSUE COMMAND 

iWAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

i SET UP EXPECTED 

lAPE TM£Y EQUAL 

lBR» IF OK 



KkF\i\m*kmoi™ : w 



en 



4650 


026006 








026006 


012727 


000250 




026012 


000000 






026014 


013727 


002116 




026020 


000000 






02*022 


005367 


177772 




026026 


001375 






026030 


005367 


177756 




026034 


001367 




4681 


026036 


005337 


030272 


4682 


026042 


001331 




4685 


026044 


004737 


020116 


4687 


026050 








026050 


104456 






026052 


000200 






026054 


030377 






026056 


011710 




4688 


026060 








026060 


104406 




4689 


026062 


012703 


010000 


4690 


026066 


013737 


003072 


4691 








4692 








4693 








4694 








4695 








4696 








4697 








4698 


026074 


012737 


100001 


4699 


026102 


012704 


030240 


4700 


026106 


010337 


030246 


4701 


026112 


010465 


177776 


4 702 


026116 


0O4737 


017134 


4703 


026122 


016501 


000000 


4 704 


026126 


012702 


0002O0 


4705 


026132 


02O102 




4 706 


026134 


001411 




4707 


026136 


032701 


000OO4 


4 708 


026142 


001006 




4 709 


026144 


004737 


020116 


4713 


026150 








026150 


104456 






026152 


000201 






C26154 


005104 






026156 


011710 




4714 


026160 








026160 


104406 




4715 


026162 


017701 


154704 


4716 


026166 


013702 


030266 


471? 


026172 


162702 


000001 


4718 


026176 


020102 




4719 


026200 


001406 




4 720 


026202 


004737 


020116 


4724 


026206 








025206 


104456 






026210 


000202 






026212 


030667 





75$ { 



030242 



APR -84 


08 J 13 


PAGE 90-2 




SEQ 132 


DELAY 


250 




l DELAY ,25 5ECQN0S 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 


#250, (PC)* 



L$DLY,CPC)» 



-6CPC) 

-22CPC) 
.-20 


DEC 


T25DLY 




I BUMP DOWN COUNTER 




BNE 


67$ 




jBR, IF NOT AT END OF DELAY 




JSR 


PC.FATCHK 


lINC ANO CHECK FOR MORE THAN 25 


ERRORS 


ERRHRD 


ERRNO, 


T25W0E, PKTSSR 


iTSSR INCORRECT AFTER READ DATA 

TRAP 
.WORD 
.WORD 
.WORD 


C$ERMRD 
128 

T25WOE 
PKTSSR 


CKL00P 






lLOOP IF SELECTED 

TRAP 


C$CLP1 


HOV 


#4096. 


,R3 


iRECORO SIZE 




MOV 


FREE.T25RB 


STARTING READ BUFFER AOORESS 





READ DATA.ACK COMMAND 



030240 



165$: 



MOV 


♦100O01.T25PK3 


MOV 


♦T23PK3.R4 


mov 


R3.T25SZ 


MOV 


R4,TS06(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


♦SSR.R2 


CMP 


R1.R2 


BEQ 


170$ 


BIT 


♦BIT2.R1 


BNE 


170$ 


JSR 


PC.FATCHK 


ERRHRD 


ERRNO, RDERR. PKTSSR 



170$: CKLOOP 



MOV 


8FREE.R1 


MOV 


T25CN2.R2 


sue 


#1,R2 


CMP 


R1.R2 


BEQ 


200$ 


JSR 


PC.FATCHK 


ERRHRD 


ERRNO. T25WNG.EXPREC 



iREAO DATA.ACK COMMAND 

iSET UP R4 WITH PACKET ADORESS 

I SET UP RECOHO SIZE IN PACKET 

I ISSUE COMhANO 

iWAIT FOR SSR TO SET 

|GE7 TSSR CONTENTS 

iSET UP EXPECTED 

i ARE THEY EQUAL 

I BR. IF OK 

iCHFXK FOR TAPE STATUS ALERT 

l IF SET ALL IS WELL 

I INC ANO CHECK FOR MORE THAN 25 

I TSSR INCORRECT AFTER READ DATA 

TRAP 
,WORO 
.WORD 
.WORD 

lLOOP IF SELECTED 

TRAP 
iGET FIRST WORO FROM 
i SET UP EXPECTED 

l SHOULD BE LAST RECORD 

I WAS RECORO NUMBERED R3 

iBR. IF CORRECT RECORO 

l INC ANO CHECK FOR MORE TH'N 25 

j SHOULD HAVE BEEN RECORD NUMBER 

TRAP 
.WORD 
♦ WORD 



ERRORS 

C$ERMRD 

129 

ROERR 

PKTSSR 



CtCLPl 
BUFFER 



CtERHRD 

130 

T25WNG 
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SEQ 133 



026214 
4 725 026216 

4 726 026216 
026216 
026216 

4727 026220 
4 728 026226 

4729 026230 

4730 026234 



016360 



104403 
023727 
002*02 
004737 



200$ t 



002170 000031 
020170 



999$; 



ENOSUB 



CMP 
DLT 
JSR 



FATFLG.#25. 
999$ 

PC.CKDROP 



.WORD EXPREC 

j >>>>>>>>>>> > ENO SUBTEST >>>>>>>>>>>> 

L10042: 

TRAP C$ES16 

t IS ERROR COUNT AT 25 
iBR, IF LESS THAN 25 
I TRY TO DROP THE UNIT 



CZTKGA TK-25 KRT 6MQ TUNC 03 
TEST 1: SPACE RECORDS 



4753 
4734 
4735 
4736 
4737 
4738 
4739 
4740 
4741 
4742 
4743 
4744 
4745 



4746 
4747 
4748 
4749 
4750 
4751 
4752 
4753 
4754 
4755 
4756 
4757 
4756 
4759 
4760 



026234 
026234 
026234 
026236 
026242 
026250 
026254 
026260 



4761 
4762 
47* j 
,64 
4768 



4 769 
4770 
4771 
4772 
4773 
4774 
4775 
4776 
4777 
4778 



026266 
026272 
026274 
026274 
026300 
026302 
026306 
026310 
026314 
026316 
026322 
026324 
026330 
026332 
026336 
026342 
026342 
026344 
026346 
026350 
026352 



104402 
004737 
013737 
004737 
004737 
013737 



004737 
103427 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001356 
016501 
004737 

104455 
000203 
003550 
011676 



031500 
030270 
031572 
031634 
030270 



016660 

000250 

002116 

177772 

177756 

030272 

000000 
020116 



026352 012704 030110 



Ell 
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SEQ 134 



030266 
030272 



J ♦ 

i TEST 1, SUBTEST 5 

i VERIFIES THAT SPACE RECORDS REVERSE CAN SPACE A 

j MULTIPLE NUMBER OF RECORDS C2 THROUGH 64K OR THE 

{MAXIMUM NUMBER OF RECORDS WRITTEN ON THE TAPE 

i WHICH EVER IS LESS. 

J 

i 

i 

I- 

!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>*> 

T1.5: 

TRAP 
PC.T25REST jSET COMMAND PACKET 

T25CNT.T25CN2 »SET UP RECORD COUNTER 

PC.T25RT2 ,SET UP OTHER COMMAND PACKET 

PC.T25RT3 i SET UP OTHER COhhANO PACKET 

T25CNT.T25DLY |SET UP REWIND DELAY COUNTER 



BGNSUB 



JSR 
MOV 
JSR 
JSR 
MOV 



C$BSUB 



| ***************** *** ************ * ******4 *** * ********************** 

lISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 

I 

1 ****************************************************************** 

10$: 



20$: 



JSR 


PC.SOFINIT 


(DO INITIALIZE ON CONTROLLER 




BCS 


201 


»BR IF INIT WAS OK 




DELAY 


250 


I WAIT ABOUT .25 SECONDS 








MOV 


*250.CPC)> 






.WORD 









MOV 


LIDLY.CPCV 






.WORD 









DEC 


-6CPC) 






BNE 


.-4 






DEC 


-22CPC) 






BNE 


.-20 


DEC 


T250LY 


iDEC COUNTER 




BNE 


10$ 


1 BR. IF MORE LOOPS REQUIRED 




MOV 


TSSRCR5),R1 


1 CONTENTS OF TSSR REGISTER 


JSR 


PC.FATCHK 


l INC AND CHECK FOR MORE THAN 25 


ERRORS 


ERRDF 


ERRNO.SFIERR.SFIMSG 


1 FATAL fcRRUR TSSR WAS NOT OK 








TRAP 


ClERDf* 






.WORD 


131 






.WORD 


SFIERR 






.WORD 


SFIMSG 



MOV 



I SUBROUTINE NEEDS PACKET ADDRESS 



0T25PACKET.R4 
************************* ***************************************** 

WRITE CHARACTERISTICS COMMANO (CALL TO WRTCHR) 

****************************************** ******** ******* ********** 



ft 



TKGA TK PS FR 
ST lj SPACE 


fc8«Dl UNC * 5 


4779 


026356 


004737 


010342 


4780 


026362 


103407 




4781 


026364 


004737 


020116 


4785 


026370 


010001 




4786 


026372 








026372 


104456 






026374 


000204 






026376 


004754 






026400 


011676 




4787 


026402 








026402 


104406 




4788 








47Q9 








4790 








4791 








4792 








4793 








4794 








4795 


026404 


004737 


010444 


4796 


026410 


103407 




4797 


026412 


010001 




4798 


026414 


004737 


020116 


4802 


026420 








026420 


104456 






026422 


000205 






026424 


031267 






026426 


011710 




4803 


026430 








026430 


104406 




4804 








4805 








4806 








4807 








4808 








4809 








4810 








4811 


026432 


013701 


030136 


4812 


026436 


010102 




4813 


026440 


052702 


000002 


4814 


026444 


020102 




4815 


026446 


001406 




4816 


026450 


004737 


020116 


4820 


026454 








026454 


104456 






026456 


000206 






026460 


030457 






026462 


016360 




4821 


026464 








026464 


104406 




4822 


026466 


013701 


030266 


4823 


026472 


012702 


177776 


4824 


026476 


020201 




4825 


026500 


C03002 




4826 


026502 


010103 




4827 


026504 


000401 




4828 


026506 


010203 




4829 


026510 







Fll 
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SEQ 135 



JSR 


PC.WRTCHR 


BCS 


25$ 


JSR 


PC.FATCHK 


MOV 


R0.R1 



251: 



ERRHRD ERRNO , WRTMSG , SFIMSi 



CKLOOP 



i ISSUE WRITE CHARACTERISTICS 

l BR, IF COMMAND ISSUED OK 

I INC AW CHECK FOR MORE THAN 25 ERRORS 

I SAVE CONTENTS OF TSSR 

I WRITE CHARACTERISTIC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

j LOOP IF SELECTED 

TRAP 



CtERHRD 

132 

WRTMSG 

SFIMSG 



CtCLPl 



I 

j ISSUE REWINO COMMAND TO SELECTED TAPE DRIVE 

; 



30$: 



JSR PC, REWIND 

BCS 301 

MOV R0.R1 

JSR PC.FATCHK 

ERRHRD ERRNO , T25RWN , PKTSSR 



CKLOOP 



j CALL TAPE REWIND COMMAND 

j BR, IF NO PROBLEM 

j SAVE TSSR 

j INC AND CHECK FOR MORE THAN 25 ERRORS 

i REWINO NOT ACCEPTED 

TRAP CtERHRD 
.WORD 133 
.WORD T25RWN 
.WORD PKTSSR 

tLOOP IF SELECTED 

TRAP CICLP1 



MOV 


T25BFR*6,R1 


MOV 


R1.R2 


BIS 


*6IT1,R2 


CMP 


R1.R2 


BEQ 


40$ 


JSR 


PC.FATCHK 



t* ***************** ******4^******4^*****«^6*******************+*+4* 

I 

iREAD MESSAGE BLTFER EXTENOED STATUS REGISTER ZERO CXSTO) 

; 
i*************************************,******************,**^******** 

iPICK UP XSTO 
I SET UP EXPECTED 
I SET BOT BIT IN EXPECTED 
jDOES EXP - REC'D 
iBR. IF EQUAL COK) 

i INC ANO CHECK FOR MORE THAN 25 ERRORS 
;TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
I LOOP IF SELECTED 

TRAP 
i NUMBER OF RECORDS ON TAPE 
i MAX IT CAN SPACE OVER 
, WHICH VALUE CAN WE USE 
jBR. IF « WRITTEN » 64K 
I* WRITTEN CAN BE USED 
j MOVE ON 
j USE MAX NUMBER 



40$ 



ERRHRD ERRNO , T25B0T , EXPREC 



CKLOOP 





MOV 


T25CN2.R1 




MOV 


♦65534. ,R2 




CMP 


R2.R1 




BGT 


46$ 




MOV 


R1.R3 




BR 


47$ 


46$- 


MOV 


R2.R5 


47$j 







C$ERHRD 
134 

T2580T 
EXPREC 

C$CLP1 



C2TKGA TK-P5 FRT 
TEST 1: SPACE RE 



ENQ FUNC 03 
CWDS 
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SEQ 136 



4830 
4831 
4832 
4833 
4834 
4835 
4836 
4837 
4838 
4839 
4840 
4841 
4842 
4843 
4844 
4845 
4846 
4847 



026510 010337 030242 



MOV 



R3.T25RB 



I NUMBER OF RECORDS JO SPACE OVER 



4848 
4849 
4850 
4854 



4655 
4856 

4857 
4858 
4859 
4860 
4861 
4862 
4863 
4864 
4865 
4866 
4867 
4868 
4869 
4870 
4871 
4872 
4873 
4874 
4875 
4876 
4877 



026514 
026522 
026526 
026532 
026540 
026544 
026550 
026554 
026556 
026560 
026560 
026564 
026566 
026572 
026574 
026600 
026602 
026606 
026610 
026614 
026616 
026622 
026622 
026624 
026626 
026630 
026632 
026636 
026642 
026644 
026646 
026650 
026652 
026654 
026660 



026664 
026672 
026676 
026702 
026710 
026714 
026720 



012737 
012704 
010465 
013737 
004737 
016501 
012702 
020102 
001425 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001351 
004737 

104456 
000207 
030377 
016360 
013701 
012702 
020201 
003002 
010103 
000401 
010203 
162703 
C10337 



012737 
012704 
010465 
013737 
004737 
0165C1 
012702 



140010 
030240 
177776 
030266 
017134 
OOOOOO 
000200 



000250 
002116 
177772 
177756 
030272 
020116 



030266 
177776 



0CO001 
030242 



140410 
030240 
177776 
030266 
017134 
OOOOOO 
000200 



030240 
030272 



, *****************************»**+********************************* 

i SPACE FORWARD, ACK.CVC-1 COMMANO 

t 

I a***************************************************************** 

j SPACE FORWARD, ACK.C.VC-l COMMANO 
t SET UP R4 WITH PAC<ET ADDRESS 
j ISSLC COMMANO 

_-_._. | SET UP DfcLAY COUNTS 

48$: JSR PC.WAITF ,WAIT FOR SSR TO SET 

jGET TSSR CONTENTS 
I SET UP EXPECTED 
j ARE THEY EQUAL 
;BR, IF OK 
{WAIT .25 SECONDS 



MOV 


♦140010, T25PK3 


MOV 


♦T25PK3.R4 


MOV 


R4.TSDBCR5) 


MOV 


T25CN2.T25DLY 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


♦SSR.R2 


CMP 


R1.R2 


BEQ 


50$ 


DELAY 


250 



MOV 


#250, (PC)* 


.WORD 





MOV 


LIDLY.CPO* 


.WORD 





DEC 


-6CPC) 


BNE 


. -4 


DEC 


-22CPC) 


BNE 


. -20 



DEC 


T25DLY 


BNE 


48$ 


JSR 


PC,FATCHK 



50$: 



55$ 
60$ 



ERRHRD ERRNO , T25W0E , EXPREC 



MOV T25CN2.R1 

MOV ♦65534., R2 

CMP R2,R1 

BGT 55$ 

MOV R1.R3 

BR 60* 

MOV R2.R3 

SUe #1,R3 

MOV R3.T25RB 



j DEC THE DELAY COUNTER 

iBR, IF COOJTER HASN'T EXPIRED 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

j TSSR INCORRECT AFTER READ DATA 

TRAP CIERHRD 

.WORD 135 
.WORD T25WDE 
.WORD EXPREC 

j NUMBER OF RECORDS ON TAPE 

I MAX IT CAN SPACE OVER 

i WHICH VALUE CAN WE USE 

j BR, IF # WRITTEN > 64K 

i# WRITTEN CAN BE USED 

j MOVE ON 

}USE MAX NUMBER 

;DON' T GO ALL THE WAY YET 

i NUMBER OF RECORDS TO SPACE OVER 



030240 
030272 



******************************************** ***t**4t*+***tt*+t***t 

SPACE REVERSE, ACK.CVC-l COMMAND 

*********** ****************** ****************************** **** *** 

i SPACE REVERSE, ACK.CVC-1 COMMAND 
tSET UP R4 WITH PACKET ADDRESS 
i ISSUE COMMANO 

_-_ -. iSET UP COUNTER 

70$: JSR PC.WAITF ,WAIT FOR SSR TO SET 

j GET TSSR CONTENTS 
jSET UP EXPECTED 



MOV 


♦ 140410, T25PK3 


MOV 


♦T25PK3.R4 


MOV 


R4.TSDBCR5) 


MOV 


T25CN2,T25DLY 


JSR 


PC.WAITF 


MOV 


TSSR(R5).Rl 


MOV 


♦SSR.R2 



?s«? GA ii K sfici R fc 



FUNC £3 
DS 
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SEQ 137 



4878 
4879 
4880 



4881 

4882 
4883 
4887 



4888 

4889 
4890 
4891 
4892 
4893 
4894 
4895 
4896 
4897 
4898 
4899 
4900 
4901 
4902 
4905 
A 904 
4905 
4906 
4907 
4908 
4909 
4910 
4911 
4915 



4916 

4917 
4918 
4919 
4920 
4921 
4925 



026724 
026726 
026730 
026730 
026734 
026736 
026742 
026744 
026750 
026752 
026756 
026760 
026764 
026766 
026772 
026772 
026774 
026776 
027000 
027002 
027002 
027004 
027010 



027016 
027024 
027030 
027034 
027040 
027044 
027050 
02 7054 
027060 
027064 
027066 
027070 
027074 
027076 
027102 
027102 
027104 
027106 
027110 
027112 
027112 
027114 
027120 
027124 
C27126 
027130 
027134 



020102 
001425 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001351 
004737 

104456 
000210 
030377 
016360 

104406 
012703 
013737 



012737 
012704 
012700 
004737 
010337 
010465 
004737 
016501 
012702 
020102 
001411 
032701 
0010O6 
0O4737 

1CM456 
000211 
005104 
016360 

104406 
017701 
01270? 
020102 
001406 
004737 



000250 
002116 
177772 
177756 
030272 
020116 



010000 
003072 



100001 
030240 
177777 
020410 
030246 
177776 
017134 
000000 
000200 



000004 
020116 



155752 
000001 



020116 



030242 



CMP 


R1.R2 




jARE THEY EQUAL 




BEQ 


75$ 




jBR, IF OK 




DELAY 


250 




» WAIT ABOUT .25 SECONDS 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 


#250,CPCV 



LIDLY,CPC)* 



-6CPC) 

.-4 

-22CPC) 

.-20 


DEC 


T25DLY 




jBUMP COUNTER DOWN 




BNE 


70$ 




iBR, IF COUNTER HASN'T EXPIRED 




JSR 


PC,FATCHK 


iINC AND CHECK FOR MORE THAN 25 


ERRORS 


ERRHRD 


ERRNO, 


T25WDE, EXPREC 


;TSSR INCORRECT AFTER READ OATA 

TRAP 

.WOflD 
.WORD 
.UORD 


CIERHRD 
156 

T25WDE 
EXPREC 


CKLOOP 






jLOOP IF SELECTED 

TRAP 


C$CLP1 


MOV 


#4096. 


,R3 


jRECORO SIZE 




MOV 


FREE.T25RB 


t STARTING READ BUFFER ADDRESS 





75$: 



t ******** ***** ******************************************** ******* ** 

* 

I READ DATA,ACK COMMAND 

I 

;****************************************************************** 



030240 



1651 



MOV 


#100001, T25PK3 


MOV 


♦T25PK3.R4 


MOV 


♦177777.RO 


JSR 


PC,FILLMEM 


MOV 


R3.T25SZ 


MOV 


R4 t TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5).R1 


MOV 


#SSR,R2 


CMP 


R1.R2 


BEQ 


1701 


BIT 


♦BIT2.R1 


BNE 


170$ 


JSR 


PC.FATCHK 


ERRHRD 


ERRNO, RDERR, EXPREC 



170$ 



CKLOOP 



MOV 


SFREE.R1 


MOV 


♦1.R2 


CMP 


R1.R2 


BEQ 


200$ 


JSR 


PC.FATCHK 


ERRHRD 


ERRNO, T25WNH. EXPREC 



REAO DATA.ACK COMMANO 
SET UP R4 WITH PACKET ADORESS 
SET ALL ONES INTO CORRECT REGISTER 
FILL MEMORY WITH RECORD SIZE 
SET UP RECORD SIZE IN PACKET 
ISSUE COMMAND 
WAIT FOR SSR TO SET 
GET TSSR CONTENTS 
SET UP EXPECTED 
ARE THEY EQUAL 
BR. IF OK 

CHECK FOR TAPE STATUS ALERT 
BR, IF BIT SET 

INC ANO CHECK FOR MORE THAN 25 ERRORS 
TSSR INCORRECT AFTER READ DATA 

TRAP 
.WC3D 
.WORD 
.WORD 
j LOOP IF SELECTED 

TRAP 

l*"ET FIRST WORD FROM BUFFER 
I SET UP EXPECTED 
I WAS RECORD NUMBERED R3 
I BR, IF CORRECT RECORD 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 
I SHOULD HAVE BEEN RECORD NUMBER 1 



C$ERHRD 
137 
RDERR 
EXPRi-X 

ctcLin 



TEST 1; SPACE RECORDS 
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SEQ 138 



027134 
027136 
027140 
027142 

4926 027144 

4927 027144 
027144 
027144 

4926 027146 

4929 027154 

4930 027156 

4931 027162 



104456 
000212 
031042 
016360 



104403 
023727 
002402 
004737 



200$: 



TRAP 
.WORD 
,WORD 
.WORD 



C$ERHRD 
138 

T25WNH 
EXPREC 



002170 000031 
020170 



999$: 



ENDSUB 



CMP 
BLT 
JSR 



FATFLG.025. 

999$ 

PC.CKDROP 



I >>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 

L10043: 

TRAP C$ESUB 
lis ERROR COUNT AT 25 
l BR, IF LESS THAN 25 
j TRY TO DROP THE UNIT 



CZTKGA TK-25 FRT END FUNC «3 
TEST 1: SPACE RECORDS 
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SEQ 139 



A 



4933 
4934 
4935 
4936 
4937 
4938 
4939 
4940 
4941 
4942 
4943 
4944 



4945 
4946 
4947 
4948 
4949 
4950 
4951 
4952 
4953 
4954 
4955 
4956 
4957 
4961 
4962 



4963 
4964 
4965 
4966 
4967 
*968 
4969 
4970 
4971 
4972 
4973 
4974 
4975 
4979 
4980 



4981 

4982 
4983 
4984 



J ♦ 



027162 
027162 
027162 
027164 
027170 
027174 



027200 
027204 
027206 
027212 
027214 
027214 
027216 
027220 
027222 
027224 



027230 

027234 
027236 
027242 
027244 
027244 
027246 
027250 
027252 
027254 
027254 



104402 

004737 031500 

004737 031572 

004737 031634 



004737 016660 

103407 

0O4737 020116 

010001 

104455 

000213 
003550 
011676 



027224 012704 030110 



004737 010342 

103407 

0O4 737 020116 

010001 

104456 
000214 
004/54 
011676 

104406 



{TEST 1, SUBTEST 6 

{ 

{VERIFIES THAT SPACE RECORDS REVERSE ISSUED WHILE THE 

i TAPE IS AT BOT RESULTS IN FUNCTION REJECT TERMINATION 

{WITH THE NONEXECUTABLE FUNCTION (NEE) ERROR BIT SET. 



i - 



BGNSU6 



JSR 
JSR 
JSR 



PC.T25REST 

PC.T25RT2 

PC.T25RT3 



,>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T1.6: 

TRAP C$BSUB 
{SET COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 
{SET UP OTHER COMMAND PACKET 



j ++++*****+*+***+******+***++++++++**++****+++*+++++++++++*++*+++++ 

{ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 

{ 

j ++*+++++**+**+++*++**+*+++++*+++++++*+++***+*+*+*+**+*+* ++*+++*+++ 

j DO INITIALIZE ON CONTROLLER 

j BR IF INIT WAS OK 

i INC AND CHECK FOR MORE THAN 25 ERRORS 

{CONTENTS OF TSSR REGISTER 

{FATAL ERROR TSSR WAS NOT OK 

TRAP C$ERDF 
.WORD 139 
.WORD SFIERR 
.WORD SFIMSG 



JSR 


PC.SOFINIT 


BCS 


20$ 


JSR 


PC.FMTCHK 


MOV 


R0.R1 


ERRDF 


ERRNO, SFIERR, SFIMSG 



201: 



MOV 



OT25PACKET.R4 



{SUBROUTINE NEEDS PACKET ADDRESS 



{*******************************+++++++++++++ ++++*++++****++++++*++ 

{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

j ******+** + + + **** ***********+**+**+*** + *** + + + + + + + * + + + + + + + ********** 



25$ t 



JSR PC, WRTCHR 

BCS 25$ 

JSR PC.FATCHK 

MOV R0.R1 

ERRHRD ERRNO , WRTMSG , SFIMSG 



CKLOOP 



{ISSUE WRITE CHARACTERISTICS 

j BR, IF COMMANO ISSUED OK 

{INC ANO CHECK FOR MORE THAN 25 ERRORS 

{SAVE CONTENTS OF TSSR 

{WRITE CHARACTERISTIC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

{LOOP IF SELECTED 

TRAP 



C$ERHRD 
140 

WRTMSG 
SFIMSG 



C$CLP1 



[ ****************+*****+*********++*************++**+******+***++++ 

S 



CZTKGA TK-25 FRT END FUNC 03 
TEST 1: SPACE RECORDS 



4985 
4986 
4987 
4988 
4989 
4990 
4991 
4992 
4996 



4997 

4998 
4999 
5000 
5001 
5002 
5003 
5004 
5005 
5006 
5007 
5008 
5009 
50] 
5014 



5015 

5016 
5017 
5018 
5019 
5020 
5021 
5022 
5023 
5024 
5025 
5026 
5027 
5028 
5029 
5^0 
5031 
b032 
5033 
5037 



027256 
027262 
027264 
027266 
027272 

027272 
027274 
027276 
027300 
027302 
027302 



027304 
027310 
027312 
027316 
027320 
027322 
027326 
027326 
027330 
027332 
027334 
027336 
027336 
027340 



027346 
027354 
027360 
027360 
027364 
027370 
027374 
02 7400 
02 7402 
027404 
02 7410 
027410 
027412 
027414 



004737 010444 

103407 

010001 

004737 020116 

104456 
000215 
031267 
011710 

104406 



013701 030136 

010102 

052702 000002 

020102 

001406 

004737 020116 

104456 

000216 
030457 
016360 

104406 

012737 000001 



012737 
012704 

010465 
004737 
016501 
012701: 
020102 
001406 
004737 

104456 
000217 
030377 



100410 
030240 

177776 
017134 
000000 
100206 



020116 



Kll 

MACRO M1200 20-APR-84 08:13 PAGE 93-1 

j ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

j ****************************************************************** 



SEQ 140 



030242 



030240 



30$: 



JSR PC .REWIND 

BCS 30$ 

MOV R0.R1 

JSR PC,FATCHK 

ERRHRD ERRNO. T25RWN.PKTSSR 



CKLOOP 



I CALL TAPE REWIND COMMAND 

I BR, IF NO PROBLEM 

i SAVE TSSR 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

{REWIND NOT ACCEPTED 

TRAP C$ERHRD 
.WORD 141 
.WORD T25RWN 
.WORD PKTSSR 

{LOOP IF SELECTED 

TRAP C$CLP1 



j ****************************************************** ************ 

IREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 

j **************************************** *********** *************** 

{PICK UP XSTO 

{SET UP EXPECTED 

tSET BOT BIT IN EXPECTED 

j DOES EXP - REC'D 

l BR, IF EQUAL COK) 

{INC ANO CHECK FOR MORE THAN 25 ERRORS 

I TAPE NOT AT BOT AFTER REWIND 

TRAP CiERHRD 
.WORD 142 
.WORD T25B0T 
.WORD EXPREC 

{LOOP IF SELECTED 

TRAP C$CLP1 

t NUMBER OF RECORDS TO SPACE OVER 



MOV 


T25BFR*6,R1 


MOV 


R1.R2 


BIS 


♦BIT1.R2 


CMP 


R1.R2 


BEQ 


40$ 


JSR 


PC.FATCHK 



ERRHRD ERRNO , T25B0T , EXPREC 



40$ 



CKLOOP 

MOV #1,T25RB 

l **************** ******* **************++******************A+******* 

! SPACE REVERSE, ACK COMMAND 
J 

| ****************************************************************** 



65$: 



MOV 


$100410, T25PK3 


MOV 


0T25PK3.R4 


MOV 


R4,TSDB('R5^ 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


*SSR!SC!BIT1!BIT2,R2 


CMP 


R1.R2 


BEQ 


75$ 


JJR 


PC.FATCHK 



ERRHRD ERRNO , T25WDE , PKTSSR 



{SPACE REVERSE, ACK COMMAND 
{SET UP R4 WITH PACKET ADDRESS 

{ISSUE COMMAND 

{WAIT FOR SSR TO SET 

I GET TSSR CONTENTS 

{SET UP EXPEC1ED 

{ARE THEY EQUAL 

I BR, IF OK 

i INC AND CHECK FOR MORE THAN 25 ERRORS 

{TSSR INCORRECT AFTER READ DATA 

TRAP C$ERHRD 
.WORD 14 3 
.WORD T25WDE 



CZTKGA TK 25 FRT END FUNC 43 
TEST i: SPACE RECORDS 



5038 

5039 
5040 
5041 
5042 
5043 
5044 
5045 
5046 
504 7 
5048 
5049 
5050 
5051 
5055 



5056 
5057 



5058 
5059 
5060 
5061 



027416 
02 7420 
027420 



027422 
027426 
027430 
027434 
027436 
027440 
027444 
027444 
027446 
027450 
027452 
02/454 
027454 
027454 
027454 
027456 
027464 
027466 
027472 



011710 
104406 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
000220 
031125 
016360 



104403 
023727 
002402 
004737 



030136 
002000 

020116 



002170 
020170 



MACRO Ml 200 



75* i 



000031 



Lll 
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CKLOOP . 



SEQ 141 



l LOOP IF SELECTED 



.WORD 
TRAP 



PKTSSR 
C*CLP1 



I ****** *************** **+**** + + + + ***+**+*** + **** + *** + + ***. + * + ******* 
I READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 

j ******************* *************** *************** *** ******* ***A*** 

iGET XSTO STATUS WORD 

jSET UP EXPECTED 

j SET THE NEF BIT 

I ARE THE.Y EQUAL 

j BR, IF EQUAL (GOOD) 

tlNC AMD CHEC.C FOR MORE THAN 25 ERRORS 

jNEF SHOULD BE SET 

TRAP CIERHRD 
.WORD 144 
,UORD T25NF.F 
.WORD EXPREC 



MOV 


T25BFR>6,R1 


MOV 


R1.R2 


BIS 


4BIT10.R2 


CMP 


R1.R2 


BEQ 


170$ 


JSR 


PC.FATCHK 



ERRHRD ERRNO , T25NEF , EXPREC 



170$ 



999$ 



ENOSUB 



CMP 
BLT 
JSR 



FATPLG.025, 

999$ 

PC.CKDROP 



L 10044: 

TRAP 
?IS E.RROH COUNT AT 25 
;BR, IK LESS THAN 25 
:TRY TO DROP THE UNIT 



CSESUB 



<f^ G M K si^ R k»s UNC w 



MACRO M1200 



Mil 
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SEQ 142 



5C63 
5064 
5065 
5066 
5067 
5068 
5069 
5070 
5071 
5072 
5073 
5074 
5075 
5076 



5077 
5078 
5079 
5080 
5081 
5082 
5083 
5084 
5085 
5086 
5087 
5088 
5089 
5093 
5094 



5095 
5096 
5097 
5098 
509 c » 
5100 
5101 
5102 
5103 
5104 
5105 
5106 
5107 
511.1 
5112 



5113 
5114 



027472 
027472 
027472 
027474 
027500 
027504 



027510 
027514 
027516 
027522 
027524 
027524 
027526 
027530 
027532 
027534 



02/540 
027544 
027546 
027552 
027554 
027554 
02/556 
027560 
027562 
027564 
027564 



104402 

004737 031500 

C04737 031572 

004737 031634 



004737 016660 

103407 

004737 020116 

010001 

104455 
000221 
003550 
011676 



027534 012704 030110 



004737 

103407 

004737 020116 

010001 

104456 
000222 
004 754 
011676 

104406 



TEST 1, SUBTEST 7 

VERIFIES CHAT A SPACE RECORDS REVERSE COMMAND THAT 
CUASES THE TAPE TO RUN INTO BOT CWITH THE TAPE NOT 
INITIALLY AT BOT) CAUSES A TAPE STATUS ALERT 
TERMINATION AND SETS THE REVERSE INTO BOT (RIB) 
STATUS BIT 



j - 



BGNSU6 



JSR 


PC.T25REST 


JSR 


PC.T25RT2 


JSR 


PC.T25RT3 



,>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T1.7: 

TRAP C$BSUB 
j SET COMMAND PACKET 
j SET UP OTHER COMMAND PACKET 
j SET UP OTHER COMMAND PACKET 

;*****************+************** ********** ************************ 

{ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 
l 

j***************.*************************************************** 

{DO INITIALIZE ON CONTROLLER 

iRR IF INIT WAS OK 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

j CONTENTS OF TSSR REGISTER 

I FATAL ERROR TSSR WAS NOT OK 

TRAP CiERDF 
.WORD 145 
.WORD SFIKRR 
.WORD SF1MSG 



JSR 


PC.SOFINIT 


BCS 


20$ 


JSR 


PC.FATCHK 


MOV 


R0.R1 


ERRDF 


ERRNO.SFIERR.SFIMSG 



20$ 



MOV 



0T25PACKET.R4 



j SUBROUTINE NEEDS PACKET ADDRESS 



J******* 4 ************************************, fc********************* 

{WRITE CHARACTERISTICS COMMAND CCAI.l. TO WRTCKR) 

{ 

, ****************** A*** *+*******************♦**♦**♦**************+♦ 



25$ 



JSR PC.WRTCHR 

BCS 251 

JSR PC.FATCHK 

MOV R0.R1 

ERRHRD ERRN0,WRTMSG,SF1MSG 



CKLOOP 



j ISSUZ WRITE CHARACTERISTICS 

I BR, IF COMMAND V'.SUEU OK 

i INC AND CHECK KOk MORE THAN 25 ERRORS 

{SAVE CONTENTS Of ISSR 

i WRITE CHARACTERISTIC FAILED 

TrfAP CIERHRP 
.WORD 146 
.WORD WRTMSG 
% WDRD SF1MSG 

{LOOP IF SELECTED 

TRAP CICLP1 



CZTKGA TK-25 FRT END FUNC #3 
TEST 1; SPACE RECORDS 



Nil 
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SEQ 143 



5115 

5116 
5117 
5118 
5119 
5120 
5121 
5122 
5123 
5124 
5128 



5129 

5130 
5131 
5132 
5133 
5134 
5135 
5136 
5137 
5138 
5139 
5140 
5141 
5142 
5146 



5147 
5148 
5149 
5150 
5151 
5152 
5153 
5154 
5155 
5156 
5157 
5158 
5159 
5160 
5161 
5162 
5163 
5167 



027566 
027572 
027574 
027576 
027602 
027602 
027604 
027606 
027610 
027612 
027612 



027614 
027620 
027622 
027626 
027630 
027632 
027636 
027636 
027640 
027642 
027644 
027646 



C27654 
02 7662 
027666 
027672 
0276 76 
027702 
027706 
027710 
027 712 
027716 
027716 
02 f/20 
027722 
02V 724 



004737 010444 

103407 

010001 

004737 020116 

104456 
000223 
031267 
011710 

104406 



013701 030136 

010102 

052702 000002 

020102 

001406 

004737 020116 

104456 
000224 
030457 
016360 
012737 000001 



012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000225 
C303/7 
016360 



140210 
030240 
177776 
017134 
000000 
000200 



020116 



j ************ + ************** + + + **** + ** + + * + * + ***4 l * + *** + + + *4 l 4,* + + 4 l + * + + 

I ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

} 

j ************************ 4i + ** + ****** + ************ + ** + ****** + * + + * + + + 



30$; 



JSR PC, REWIND 

BCS 30$ 

MOV R0.R1 

JSR PC,FATCHK 

ERRHRD ERRNO , T2=>^!N , PKTSSR 



CKLOOP 



•CALL TAPE REWIND COMMAND 

l BR, IF NO PROBLEM 

{SAVE TSSR 

i INC AND CHECK FOR MORE THAN 25 ERRORS 

I REWIND NOT ACCEPTED 

TRAP 
.WORD 
. WORD 
.WORD 

j LOOP IF SELECTED 

TRAP C$CLP1 



CJERHRD 
14 7 

T25RWN 
PKTSSR 



MOV 


T25BFR*6,Rl 


MOV 


R1.R2 


BIS 


46IT1,R2 


CMP 


R1,R2 


BEQ 


401 


JSR 


PC.FATCHK 



ERRHRD ERRNO , T25B0T , EXPREC 



j **************************** +* + + ** + + *** + ***4 l * + + + + + * + + + + *+. ********* 

I 

iREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 

i 

j *******+************+********+**+***** **+**+***+**+* ************** 

jPICK UP XSTO 

{SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 

jDOES EXP - REC'D 

l BR, IF EQUAL (OK) 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

{TAPE NOT AT BOT AFTER REWIND 

TRAP CIERHRD 
.WORD 148 
.WORD T25B0T 
.WORD EXPREC 
030242 40$: HOV *1,T25RB i NUMBER OF RECORDS TO SPACE OVER 

. *+******************+****+*****+***++****++****+*+*+*******++*+*** 

! SPACE FORWARD, IE, ACK.CVC-t COMMAND 

i 

{+******+*******************+*************************+***+++*+++** 

030240 MOV $140210. T25PK3 jSPACE FORWARD. IE, ACK . CVC-1 COMMAND 

jSET UP R4 UITH PACKET ADDRESS 
llSSUf- COMMAND 
iWAIT FOR SSR TO SET 

t GET TSSR CONTENTS 

I SET UP EXPECTED 

i ARE THEY EQUAL 

iBR, IF OK 

I INC AND CHECK FOR MORE THAN 2b ERRORS 

j TSSR INCORRECT AFTER READ DATA 

TRAP C$ERHRD 
.WORD 14\) 
.WORD T25UDE 
.WORD EXPREC 



MOV 


tfl40210,T25PK3 


MOV 


*1'25PK?.R4 


MOV 


R4.TSDBCR5) 


JSR 


PC.WA1TF 


MOV 


TSSRCR5),R1 


MOV 


0SSR.R2 


CMP 


R1.R2 


BEQ 


75$ 


JSR 


PC.FATCHK 



ERRHRD ERRNO , T25WD'c , EXPREC 



si 



CZTKGA TK-25 FRT END FUNC «3 
TEST 1: SPACE RECORDS 
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SEQ 144 



5166 027726 






027726 


104406 




5^69 037730 


012737 


000020 


5170 






5171 






5172 






5173 






5174 






5175 






5176 






5177 027736 


012737 


100610 


5178 027744 


012704 


030240 


5179 027750 


010465 


177776 


5160 027754 


004737 


017134 


5161 027760 


016501 


000000 


5162 027764 


012702 


100204 


5163 027770 


020102 




5164 027772 


001406 




5165 027774 


0O4737 


020116 


5169 030000 






030000 


104456 




030002 


0O0226 




030004 


030377 




030006 


016360 




5190 030010 






030010 


104406 




5191 030012 


013701 


030144 


5192 030016 


010102 




5193 030020 


052702 


000001 


5194 030024 


020102 




5195 030026 


001406 




5196 030030 


004737 


020116 


5200 030034 






030034 


104456 




030036 


000227 




030040 


031125 




030042 


016360 




5201 030044 






5202 030044 






030044 






030044 


104403 




5203 030046 


023727 


002170 


5204 030054 


002402 




5205 030056 


004737 


020170 


5206 030062 






5207 






5206 






5209 






5210 030062 


0O4737 


017372 


5211 030066 


103002 




5212 030070 


000137 


053710 


5213 030074 






5214 030074 






030074 


104432 




050076 


001566 





030242 



75$ I CKLOOP 

MOV #20,T25RB 



lLOOP IT SELECTED 

TRAP CICLP1 

iNUMBER Of RECORDS TO SPACE OVER 



l SPACE REVERSE, IE, ACK COMMAND 



030240 



MOV 


#100610, T25PK3 


, SPACE REVERSE, IE, ACK COMMAND 


MOV 


♦T25PK3,R4 


iSET UP R4 WITH PACKET ADDRESS 


MOV 


R4,TS08(R5) 


l ISSUE COMMAND 


JSR 


PC.UAITF 


»WAIT FOR 5SR TO SET 


MOV 


TSSR(R5),R1 


iGET TSSR CONTENTS 


MOV 


♦SSRfBIT2!SC,R2 


iSET UP EXPECTED 


CMP 


R1.R2 


lARE THEY EQUAL 


BEQ 


1751 


»BR» If OK 


JSR 


PC.FATCHK 


lINC ANO CHECK FOR MORE THAN 25 


ERRHRD 


ERRN0.T25WOE, EXPREC 


iTSSR INCORRECT AFTER READ DATA 

TRAP 



175li 



1601 j 



000031 



9991} 

I 
I 
i 



19311 



ENOSUB 



CMP 

BLT 
JSR 



JSR 
BCC 

JMP 

fcXIT 



ERRORS 









TRAP 


CIERHRD 








.WORD 


150 








,UORO 


T25W0E 








.WORD 


EXPREC 


CKLOOP 




lLOOP IF SELECTED 


TRAP 


C*CLPi 


MOV 


T258FR.14.Rl 


iGET XST3 STATUS WORD 






MOV 


R1.R2 


iSET UP EXPECTED 






BIS 


#6IT0,R2 


,SET THE RIB BIT 






CMP 


R1.R2 


lARE THEY EQUAL 






BEQ 


1601 


|BR, IF EQUAL CGOOO) 






JSR 


PC.FATCMK 


iINC ANO CHECK FOR MORE 


THAN 25 


ERRORS 


ERRHRD 


ERRN0.T25NEF, EXPREC 


iNEF SHOULD BE SET 


TRAP 
.WORD 
.WORD 
.WORD 


CIERHRD 
151 

T25NEF 
EXPREC 



FATFLG,#?5. 
9991 

PC.CKDROP 



PC.TSTLOQP 

1931 

T25LQQP 



!>>>>>>>>>>>> END SUBTEST >>>>»>>>>>>» 

L10O45: 

TRAP CIESU8 

iIS ERROR COUNT AT 25 
»BR, IF LESS THAN 25 
I TRY TO DROP THE UNIT 



iDO WE NEEO TO ITERATE TEST 
iBR. IF NO LOOP REQUIRED 
, EXECUTE AGAIN 



TST 



I ALL DONE THIS TEST 



TRAP 

.WORD 



CIEXIT 



m 



G M K s 



^cI^BRdI^ w MACR0 mso ° 



cm 
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SEQ 145 



5216 

5217 

5218 
5220 
522Z 
5223 
5224 
5225 
5226 
5227 
5228 
5229 
5230 
5231 
5232 
5233 
5234 
5235 
5237 
5239 
5240 
5241 
5242 
5243 
5244 
5246 
5248 
5249 
5250 
5251 
5252 
5253 
5254 
5255 
5256 
5257 
5258 
5259 
5260 
5261 
5262 
5263 
5264 
5265 
5266 
5267 
5268 
5269 
52 70 
5271 
52 72 
5273 



03O10O 
030110 
030110 
030112 
030114 
030116 
030120 
030120 
030122 
030124 
030126 
030130 



030212 
030220 
030220 
030222 
030224 
030226 

030230 
030240 
03O240 
030242 
030242 
030244 
030246 



030250 
030250 
030251 
030252 
030254 



03O256 
030260 
030262 
030264 



100004 
030120 
000000 
000010 

030130 
000000 
0O0012 
000000 



100006 
030250 
000000 
000006 



100005 

003072 
0O0000 
000000 



010 

200 

OOOOOO 

000000 



100005 
100405 
102005 
177777 



\ LOCAL STOWAGE FOR THIS TEST 
J - 





.BLKB 


10-«.-tuV2A67> 


T25PACKETs 






.WORD 


10OO04 




.WORD 


T25DATA 




.WORD 







.WORD 


8. 


T25DATA 


J 






.WORD 


T25BFR 




.WORD 







.WORD 


10. 




.WORD 





T258FR: 


.BLKW 


25. 


j WRITE « 


SUBSYSTEM MEMORY COMMANO PACKET 


i 


.BLKB 


l0-<.-TUV2A67> 


T25PK2t 








.WORO 


100006 




.WORO 


T258F2 




.WORO 







.WORD 


6. 




.BLKB 


10-<, -TUV2A£7> 


T25PK3j 








.WORD 


10OO05 


T25R8; 






T25W6; 


.WORD 


TREE 




.WORD 





T25SZ? 


.WORD 





1 


.EVEN 




1 
T258F2: 






T258S0: 


.UYTE 


10 


T258S1; 


.BYTE 


200 


T25S2; 


.WORD 





T25S3s 

I 


.WORD 





1 


.EVEN 




iTAPE MOTION PACKtT COMMAND VALUES 


T25RN: 


.WORD 


100005 


T25WOG: 


.WORD 


100405 


T25C0NJ 


.WORD 


102005 




.WORD 


177777 



I COMMANO PACKET FOR TEST 

iWRITE CHARACTERISTICS COMMANO, WITH 

»ADDRESS DT CHARACTERISTICS BLOCK 

i STARTING VALUE OF" BLOCK SIZE 
, CHARACTERISTICS DATA BLOCK 
I ADDRESS OF MESSAGE BUFFER 

iLENGTH OF MESSAGE BUFFER 

I MESSAGE BUFFER 



ACK 



iWRIfE SUB SYS MEM COMMANO. ANO ACK 
I ADDRESS OF SELECT BLOCK DATA 

I SIZE OF DATA PACKET 



j READ COMMANO, ANO ACK 
I ADDRESS OF WRITE BUFFER 
I SIZE OF B'JFFER CEXTENT) 



iBSELO AREA 
»BSEL1 AREA 
iSEL 2 AREA 
I DATA AREA 



jREAD DATA (NEXT) 
jREAD DATA RETRY 
i WRITE CON T I NOUS 
lENO OF DATA 



CZTKGA TK 25 FRT END TUNC 05 
TEST It SPACE RECORDS 



5275 

5276 
5277 

5278 
5279 
5280 
5281 
5282 
5281 
5284 
5285 
5286 
5287 
5288 
5289 
5290 
5291 
5292 
5293 
5294 
5295 
5296 
5297 
5296 
5299 
5300 
5301 
5302 
5303 
5304 
5305 
5306 
5307 
5308 
5309 
5310 
5311 
5312 
5313 
5314 
5315 
5316 
5317 
5318 
5319 
5320 
5321 
5322 
5323 
5324 
5325 
5326 
5327 
5328 
5329 
5330 
5331 



030266 
030270 
030272 



030274 
030316 
030377 
030457 
030524 
030613 
030667 
030752 
031042 
031125 
031205 
031267 
031336 
031411 
031462 



031500 
031500 
031504 
031510 
031514 
031520 
031522 
031526 
031532 
031534 
031540 
031542 
031546 
031552 
031560 
031562 
031566 
031570 

031572 
031572 
031576 
031602 
031606 
031612 



000000 
000000 
000000 



104 
127 
124 
124 
124 
127 
123 
123 
123 
123 
123 
122 
104 
124 
123 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
012711 
012702 
012762 
005742 
022702 
001371 
000207 



012701 
012721 
012721 
005021 



MACRO M1200 20-APR-84 06tl3 



T25CN2: .WORD 
T25CNT: .WORD 
T25DLY? .WORD 
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SEQ 146 



122 
122 
123 
141 
123 
162 
160 
160 
160 
160 
160 
145 
162 
123 
160 



111 
111 
123 
160 
123 
151 
141 
141 
141 
141 
141 
167 
151 
123 
141 



030110 
100004 
030120 

000012 
030130 

000024 

000000 
000030 

177777 

oooooo 



030130 



030220 
100006 
030250 



l COLTER FOR RECORDS 
j COUNTER FOR RECORDS 
l COUNTER FOR RECORDS 



j LOCAL 



TEXT MESSAGES FOR TEST 



T210FL 
T25SSR 
T25WOE 
T2580T 
T25TM: 
T25NET 
T25WNG 
T258NC 
T25WNH 
T25NEF 
T25RIB 
T25RWN 
T250FL 
T25WDC 
TST25ID: 

l ♦ 

i ROUTINE TO RESTORE COMMAND PACKET 
I WRITE SUBSYSTEM MEMORY COMMAND 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.EVEN 



DRIVE IS OFF-LINE' 

WRITE SUBSYSTEM Miscellaneous Rsad Status Failed' 

TSSR Not Correct After POSITION (SPACE) Command' 

Tape Not At BOT After REWIND Command' 

TSSR Not Correct After POSITION (Space Command) Reject' 

Write Tape, Status Alert. But No EOT Sensed' 

Space Forward Failed To Position On Correct Record* 

Space Fcrward, From BOT, Failed To Clear BOT Indication 

Space Reverse Failed To Poeition On Corract Record* 

Space Reverse, At BOT, Failed To Set NEF (XSTO)' 

Space Reverse. Into BOT, Failed To Set RIB (XST3) 

Rewind (POSITION) Command Not Accepted' 

Drive 7 Select Failed To Set "OFL" In TSSR' 

TSSR Not Correct After READ DATA Command' 

ASCIZ 'Space Records' 



TO START-UP (DEFAULT) VALUES 



J 
J - 




T25REST: 




SAVREG 




MOV 


•T25PACKE U 


MOV 


♦100004. (P. )< 


MOV 


♦T250ATA,U?1)» 


CLR 


(Rl)» 


MOV 


•10.. (Rl)* 


MOV 


#T258FR,CRD* 


CLR 


CRD* 


MOV 


♦20. ,(R1)* 


CLR 


(Rl)» 


MOV 


♦O.(Rl) 


MOV 


♦24. ,R2 


64$; tVOV 


♦177777, T25BFR(R2) 


1ST 


~(R2) 


CMP 


♦0.R2 


BNE 


64$ 


RTS 


PC 


T25RT2i 

SAVREG 




MOV 


♦T25PK2.R1 


MOV 


♦ 100006, CRD* 


MOV 


♦T25BF2.CR1)* 


CLR 


(Rl)» 



i SAVE THE REGISTERS 

j START OF THE PACKET 

iWRITE SUBSYSTEM MEM. WITH ACK 

I ADDRESS OF CHARAISflCS DATA BLOCK 

tEXTENOED ADDRESS 

l SIZE OF DATA BLOCK IN BYTES 

lADDRLSS OF MESSAGE BUFFER 

iLENGTH OF MESSAGE BUFFER 

i SELECT DRIVE ZERO 

iNUMBER OF LOCATIONS TO BE CLEARED 

i ALL ONES TO MESSAGE BUFFER 

iNEXT LOCATION 

j IS R2 AT ZERO YET 

i KEEP GOING UNTIL DONE 

j RE TURN 



l SAVE THE REGISTERS 
{START OF THE PACKET 
jWRITE SUBSYSTEM MEM. WITH 
I ADDRESS OF DATA BLOCK 
■EXTENDED ADDRESS 



ACK, 



CZTKGA TK-25 FRT I 
TEST U SPACE RE< 



:nd FUNC *3 

;ords 



5332 
5333 
5334 
5335 
5336 
5337 
5338 
5339 
5340 
5341 
5342 
5343 
5344 
5345 
5346 



031614 
031620 
031622 
031626 
031630 
031632 
031634 
031634 
031640 
031644 
031650 
031654 
031656 
031662 
031664 
031664 
031664 



012721 
005021 
012701 
005021 
005011 
000207 



012701 
012721 
012721 
005021 
012721 
000207 



104401 



000006 
030250 



030240 
000000 
000000 

000000 



MACRO M1200 20-APR-84 06 : 13 
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T25RT3: 



MOV 
CLR 
MOV 
CLR 
CLR 
RTS 

SAVREG 

MOV 

MOV 

MOV 

CLR 

MOV 

RTS 

ENOTST 



*6.,CR1)» 

CRD* 

#T25BF2,R1 

(Rl)* 

CRD 

PC 



*T25PK3,R1 

*0,CR1)* 

«0,CR1)» 

CRD* 

*0,(R1)* 

PC 



SEQ 147 



I SIZE OF DATA BLOCK IN BYTES 
I POINT TO DATA SEL AREA 

I RETURN 

tSAVE THfc REGISTERS 

i START OF THE PACKET 

tWRITE SUBSYSTEM MEM, WITH ACK f 

j ADDRESS OF DATA BLOCK 

i EXTENDED ADDRESS 

j SIZE OF DATA BLOCK IN BYTES 

l RE TURN 



L 10036: 



TRAP 



CIETST 



TEST 2; REREADS 
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SEQ 148 



5548 
5349 
5350 
5351 
5352 
5353 
5354 
5355 
5356 
5357 
5358 
5359 
5360 
5361 
5362 
5363 
5364 
5365 
5366 

5367 
5366 
5369 
5370 
5375 
5376 
5377 
5378 
5379 
5380 
5381 
5382 
5383 
5394 
5385 
5386 
5387 
5388 
5369 
5390 
5391 
5392 
5393 
5394 
5395 
5396 
5397 
5398 
5399 
5400 



5401 
5402 
5403 
5404 
5405 



.SBTTL TEST 2: REREADS 



; ♦ 



031666 
031666 
031666 
031672 
031676 
031704 
031710 
031714 
031720 
031726 



031732 

031732 
031732 
031732 
031734 
031740 
031744 
031750 



005037 
005037 
012737 
004737 
012700 
004737 
012737 
005037 



002170 
003100 
005771 
020262 
050637 
017424 
000001 
046106 



002146 



002164 



104402 
004737 
004737 
004737 
012737 



050650 
050742 
051004 
176750 



j THIS TEST VERIFIES THAT THE REREAD PREVIOUS AND REREAD NEXT 
l COMMANDS OPERATE PROPERLY. VARIOUS COMBINATIONS OF OOD ANO EVEN 
jDATA BUFFER BOUNDRIES, RECORD SIZES CUP TO 64K BYTES IF MEMORY 
iSPACE IS AVAILIABLE), ANO BYTE-SWAP CSWP) AND OPPOSITE COPP) 
iCONRTOL ARE USED, ALSO TESTED ARE PROPER TERMINATIONS ON 
^EXCEPTIONAL OR ERROR CONDITIONS: RECORD LENGTH LONG, RECORD 
tLENGTH SHORT, READ REVERSE AT BOT, ILLEGAL DATA BUFFER ADDRESSES, 
iANO DATA BUFFERS IN NONEXISTENT MEMORY, 

i 

j THE TEST CONSISTS OF THE FOLLOWING 15 SUBTESTS 



BGNTST 



CLR 


FATFLG 


CLR 


KTFLG 


MOV 


♦EPRT2.EPRTSW 


JSR 


PC, K TOFF 


MOV 


♦TST26ID.R0 


JSR 


PC.TSTSETUP 


MOV 


#1,L00PCNT 


CLR 


T26CNT 



T2:: 
ERROR FLAG 



MESSAGE 



j CLEAR FATAL 
jHOLD OFF KT11 

I SECONDARY ERROR 

jDON'T NEED KTU 

lASCII MESSAGE TO IDENTIFY 

iDO INITIAL TEST SETUP 

^PERFORM 1 ITERATIONS 

I CLEAR TAPE RECORD COUNTER 



TEST 



i ♦ 

iTEST 2, SUBTEST 1 

i 

j VERIFIES THAT THE REREAD PREVIOUS COMMAND 

(OPERATES PROPERLY. THE TAPE IS FIRST 

jREWOUND ANO THEN WRITTEN WITH A SERIES OF TEST 

I RECORDS VARYING IN LENGTH ANO DATA CONTENT. THE TAPE 

j IS THEN REWOUND AGAIN. FOR EACH TEST RECORD, THE 

i TAPE IS SPACED E0RWARC ONE RECORD AND A REREAD 

j PREVIOUS COMMAND ISSUED. RESULTS (STATUS, DATA, 

lETC.) ARE VERIFIED. THE BYTE COUNT ON EACH REREAD 

: PREVIOUS COMMANO IS SET TO THE LENGTH i)f THE EXPECTED 

jRECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR, 

» 

t 

i - 



T26L00P: 



BGNSU6 



046114 



JSR 


PC.T26REST 


JSR 


PC.T26RT2 


JSR 


PC.T26RT3 


MOV 


C65OO0.,T26DLY 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T2.1: 

1RAP CSBSUB 

I SET COMMAND PACKET 
j SET UP OTHER COMMANO PACKET 
I SET UP OTHER COMMAND PACKET 
j SET UP DELAY COUNTER 



CZTKGA TK-25 FRT END FUNC 03 
TEST 2 j REREADS 



5406 
5407 
5408 
5409 
5410 
5411 
5412 
5413 
5414 



5415 
5416 
5417 
5421 
5422 



5423 
5424 
5425 
5426 
5427 
5428 
5429 
5430 
5431 
5432 
5433 
5434 
5435 
54 39 
5440 



5441 

5442 
5443 
5444 
5445 

5446 
5447 
5448 
5449 
5450 
5451 



031756 
031762 
031764 
031764 
031770 
031772 
031776 
032000 
032004 
032006 
032012 
032014 
03^020 
032022 
032026 
032030 
032030 
032032 
032034 
032036 
032040 



032044 
032050 
032052 
032056 
032060 
032060 
032062 
032064 
032066 
032070 
032070 



032072 
032076 
032100 



004737 
103426 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001356 
004737 
010001 

104455 

000311 
003550 
011676 



016660 

00C250 
002116 
177772 
177756 
046114 
020116 



032040 012704 045730 



0O4737 010342 

103407 

0O4737 020116 

010001 

104456 
000312 
004754 
011676 

104406 



004737 310444 

103413 

016501 000000 
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S£Q 149 



j *********** *************************** ********* ******************* 

j ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 

I 

j **************** ********************************* ^ **************** 

10$: 



20$: 



JSR 


PC, SOFINIT 


j DO INITIALIZE ON CONTROLLER 




BCS 


20$ 


j BR IF INIT WAS OK 




DELAY 


250 


1 DELAY FOR A REWINO TO FINISH 








MOV 


4250.CPC)* 






.WORD 









MOV 


LIDLY.CPO* 






.WORD 









DEC 


-6CPC) 






BNE 


.-4 






DEC 


-22CPC) 






BNE 


.-20 


DEC 


T26DLY 


iDEC COUNTER 




BNE 


10$ 


j BR, IF DELAY NOT READY 




JSR 


PC.FATCHK 


jINC ANO CHECK FOR MORE THAN 25 


ERRORS 


MOV 


R0,R1 


jCONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO.SFIERR, SFIMSG 


j FATAL ERROR TSSR WAS NOT OK 








TRAP 


C$ERDF 






.WORD 


201 






.WORD 


SFIERR 






.WORD 


SFIMSG 



MOV 



♦T26PACKET,R4 



SUBROUTINE NEEDS PACKET ADDRESS 



^ ****************************************************************** 

jWRITE CHARACTERISTICS COMMANO (CALL TO WRTCHR) 
i 

; ********** ******************************** ************************ 



26$: 



JSR PC, WRTCHR 

BCS 26$ 

JSR PC.FATCHK 

MOV R0.R1 

ERRHRD ERRNO , WRTMSG , SFIMSG 



CKLOOP 



j ISSUE WRITE CHARACTERISTICS 

I BR, IF COMMANO ISSUED OK 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 

jSAVE CONTENTS OF TSSR 

j WRITE CHARACTERISTIC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

{LOOP IF SELECTED 

TRAP 



C$ERHRD 
202 

WRTMSG 
SFIMSG 



C$CLP1 



****************************************************************** 

ISSUE REWINO COMMANO TO SELECTED TAPE DRIVE 

********************************************** ****** ****** ******** 

j CALL TAPE REWINO COMMAND 
(BR, IF NO PROBLEM 
lG£T TSSR 



JSR 


PC, REWINO 


BCS 


30$ 


MOV 


TSSRCR5),R1 



^^IMSe^ 
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SEQ 150 



5452 
5453 
5454 
5458 



5459 

5460 
5461 
5462 
5463 
5464 
5465 
5466 
546," 
5468 
5469 
5470 
5471 
5472 
5476 



5477 

5478 
5479 
5480 
5481 
5482 
5483 
5484 
5485 
5486 
5487 
5488 
5489 
5490 
5491 
5492 
5493 
5494 
5495 
5496 
5497 
5498 
5499 
5503 
5504 
5505 
5506 



032104 
032110 
032112 
032116 
032116 
032120 
032122 
032124 
032126 
032126 



032130 
032134 
032136 
032142 
032144 
032146 
032152 
032152 
032154 
032156 
032160 
032162 
032162 
032164 
032170 



032176 
032204 
032210 
032210 
032212 
032216 
032222 
032226 
032232 
032236 
032242 
032244 
032246 



032252 
032252 



012702 000200 

010004 

004737 020116 

104456 
000313 
047414 

011710 

104406 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
000314 
047125 
016360 

104406 

012703 
013737 



012737 
012704 

010300 
CKM737 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 



104457 



045756 
0OO002 

020116 



000400 
003072 



140005 
046060 



020410 
046066 
177776 
017134 
000000 
000200 



020116 



30$: 



MOV 0SSR.R2 

MOV R0.R4 

JSR PC.FATCHK 

ERRHRD ERRNO , T26RWN , PKTSSR 



CKLOOP 



I SET UP EXPECTED TSSR 

{PACKET ADDRESS SET UP 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

I REWIND NOT ACCEPTED 

TRAP CIERHRD 
.WORD 203 
.WORD T26RWN 
.WORD PKTSSR 

j LOOP IF SELECTED 

TRAP C$CLP1 



046062 



j ******* ****.**** ********************************* ****************** 
I 

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 

; 

t ***************************** •*•**+******************************+**, 

iPICK UP XSTO 

jSET UP EXPECTED 

I SET BOT BIT IN EXPECTED 

I DOES EXP - REC'D 

jBR, IF EQUAL (OK) 

j INC AND CHECK FOR MORE THAN 25 ERRORS 

{TAPE NOT AT BOT AFTER REWIND 

TRAP CIERHRD 
.WORD 204 
.WORD T26B0T 
.WORD EXPREC 
40*: CKLOOP iLOOP IF SELECTED 

TRAP CICLP1 
j RECORD SIZE 
iSTARTir^G WRITE BUFFER ADDRESS 



MOV 


T26BFR*6,R1 


MOV 


R1.R2 


BIS 


#eiTl,R2 


CMP 


R1.R2 


BEQ 


40$ 


JSR 


PC.FATCHK 



ERRHRD ERRNO , T26B0T , EXPREC 



CKLOOP 

MOV 
MOV 



♦256.. R3 

FREE,T26RB 



2 ******** *************************************************** ******* 

iWRITE DATA.ACK.CVC-1 COMMAND 

t 

j ****************************************************************** 



046060 



65*: 



MOV 


#140005, T26PK3 


MOV 


♦T26PK3.R4 


MOV 


R3.R0 


JSR 


PC.F1LLMEM 


MOV 


R3.T26SZ 


MOV 


R4,TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5),R1 


MOV 


♦SSR.R2 


CMP 


R1.R2 


BEQ 


75$ 


JSR 


PC.FATCHK 



ERRSOFT ERRNO, WRTERR, EXPREC 



WRITE DATA,ACK,CVC-1 COMMAND 
SET UP R4 WITH PACKET ADORESS 

SET PATTERN IN CORRECT REGISTER 

FILL MEMOPY WITH RECORD SIZE 

SET UP RECORD SIZE IN PACKET 

ISSUE COMNANO 

WAIT FOR SSR TO SET 

GET TSSR CONTENTS 

SET UP EXPECTED 

ARE THEY EQUAL 

BR, IF OK 

INC AND CHECK FOR MOPE THAN 25 ERRORS 

SOFT ERROR GENERATED BECAUSE THE 

WRITE COMMAND IS NOT BEING CHECKED 

HERE. IT WAS CHECKED IN LEAK2 

TSSR INCORRECT AFTER WRITE DATA 

TRAP CSERSUFT 
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5507 

5508 
5509 
5510 
5511 

5512 
5513 
5514 
5515 
5516 
5517 
5518 
5519 
5520 
5521 
5522 
5523 
5524 
5525 
5529 



5530 

5531 
5532 
5533 
5534 
5535 
5536 
5537 
5538 
5539 
5540 
554 \ 
5542 
5543 
5547 



5548 

5549 

5550 
5551 
5552 
5553 
5554 



032254 
032256 
032260 
032262 
032262 
032264 
032266 
032272 
032274 
032274 
032276 



000315 
005011 
016360 

104406 

005723 
022703 
001346 

104406 



032276 
032302 
032304 
032310 
032314 
032316 
032322 
032322 
032324 
032326 
032330 
032332 
032332 



004737 
103413 
016501 
012702 
010004 
004737 

104456 

000316 
047414 
011710 

104406 



03233* 
032340 
032342 
032346 
032350 
032352 
032356 
032356 
032360 
032362 
032364 
032366 
032366 
032370 



013701 
010102 
052702 
020102 
O014O6 
004737 

104456 
OO0317 
047125 
011710 

104406 
012737 



000414 



010444 

000000 
000200 

020116 



045756 
000002 

020116 



000400 046112 



75$: 

80$: 
120$: 



CKLOOP 

TST 
CHP 
DNE 
CKLOOP 



(R3)* 
4268, ,R3 
65$ 





SEQ 151 


.WORD 


205 


.WORD 


WRTERR 


.WORD 


EXPREC 


»L0OP IF SELECTED 




TRAP 


C$CLP1 


jBUMP RECORD SIZE 




jEND OF RECORD YET 




|BR, IF MORE RECORDS TO WRITE 




l LOOP IF SELECTED 




TRAP 


C$CLP1 



i ISSUE REWINO COMMANO TO SELECTED TAPE DRIVE 

J 

} *****4^*«******* ****** **********4**4^****4^**************4t ******** 

I CALL TAPE REWIND COMMANO 

j BR, IF NO PROBLEM 

;GET TSSR 

I SET UP EXPECTED TSSR 

i PACKET ADDRESS SET UP 

j INC AND CHECK FOR MORE THAN 25 ERRORS 

j REWINO NOT ACCEPTED 

TRAP C$ERHRD 
.WORD 206 
.WORD T26RWN 
.WORD PKTSSR 
jLOOP IF SELECTED 

TRAP C$CLP1 



JSR 


PC.REUINO 


BCS 


130$ 


MOV 


TSSRCR5),R1 


MOV 


4SSR.R2 


MOV 


R0.R4 


JSR 


PC.FATCHK 



ERRHRD ERRNO , T26RWN , PKTSSR 



130$: CKLOOP 



>READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 

;********** *************** ******************************** ********* 

iPICK UP XSTO 

I SET UP EXPECTED 

; SET BOT BIT IN EXPECTED 

; DOES EXP - REC'D 

iBR, IF EQUAL COK) 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

jTAPE NOT AT BOT AFTER REWINO 

TRAP CIERHRD 
.WORD 207 
.WORD T26B0T 
.WORD PKTSSR 

l LOOP IF SELECTED 

TRAP CSCLP1 

j SET RECORD SIZE 



MOV 


T26BFK*6,R1 


MOV 


R1 5 R2 


BIS 


♦0IT1.R2 


CMP 


R1.R2 


BEQ 


140$ 


JSR 


PC.FATCHK 



140$ 



ERRHRD ERRNO , T26B0T .PKTSSR 

CKLOOP 

MOV ♦256..T26RSZ 



{ ****************************************************************** 

J 

j ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
jBIT 15 SETS DIRECTION - 0-FORWARD 1-REVERSE 
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SEQ 152 



5555 
5556 
5557 
5558 
5559 
5560 
5561 
5562 
5563 
5567 



5568 
5569 
5570 
5571 
5572 
5573 
5574 
5575 
5576 
5577 
5578 
5579 
5580 
5581 
5582 
5583 
5584 
5585 
5586 
5587 
5591 



5592 

5593 
5594 
5595 
5596 
5597 
5598 
559S 
5600 
5601 
5605 



5606 



032376 
032402 
032406 
032410 
032414 
032420 
032424 
032424 
032426 
032430 
032432 
032434 
032434 
032440 



032446 
032454 
032460 
032464 
032470 
032474 
032500 
032504 
032506 
032510 
032514 
032514 
032516 
032520 
032522 
032524 
032524 
032526 
032532 
0325? 1 
03254.) 
03254/ 
032544 
032546 
032550 
032552 
032556 
032556 
032560 
032562 
032564 
032566 
032566 



012703 
004737 
103412 
016501 
012702 
004737 

104456 
000320 
046527 
016360 

013703 
013737 



012737 
012704 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000321 
047750 
011710 

104406 
013702 
010304 
162704 
060204 
021403 
001410 
011401 
010302 
004737 

104456 
000322 
04 7172 
016360 

104406 



****************************************************************** 



OOOO01 
010144 

000000 
000200 
020116 



145$: 



MOV 


♦1.R3 


JSR 


PC, SPACE 


BCS 


5 30$ 


MOV 


1SSRCR5),R1 


MOV 


■ SSR.R2 


JSR 


i'C.FATCHK 


ERRHRD 


ERRN0.T26SC, EXPREC 



j SPACE ONE RECORD PARAMETER 

jCALL SPACE ROUTINE 

i BR, IF NO PROBLEM WITH SPACE COMMAND 

jGET TSSR 

jSET UP EXPECTED TSSR 

I INC ANO CHECK FOR MOKE THAN 25 ERRORS 

j POSITION (SPACE RECORDS) FAILED 



046112 
003072 



150$ j 



TRAP 


CJERHRD 


.WORD 


208 


.WORD 


T26SC 


.WORD 


EXPREC 



046062 



MOV T26RSZ,R3 

MOV FREE.T26RB 



iRECORD SIZE 

{STARTING READ BUFFER ADDRESS 



141001 
046060 
046066 
177776 
017134 
000000 
000200 



020116 



046060 



j ****** ************************************************* * ********** 

I 

{REPEREAD DATA.CVC- 1 , ACK COMMAND 

i 

, **+ ********************************************* ************ ****** 



165$; 



003072 

000400 



170$} 



173$: 



020116 



MOV 


*14100i,T26PK3 


iREREREAD DATA.CVC-1 , ACK COMMANO 


MOV 


♦T26PK3.R4 


;5ET UP R4 WITH PACKET ADDRESS 




MOV 


R3.T26SZ 


j SET UP RECORD SIZE IN PACKET 




MOV 


R4.TSDBCR5) 


j ISSUE COMMANO 




JSR 


PCWAITF 


t WAIT FOR SSR TO SET 




MOV 


TSSRCR5),R1 


jGET TSSR CONTENTS 




MOV 


♦SSR.R2 


jSET UP EXPECTED 




CMP 


R1.R2 


j ARE THEY EQUAL 




BEQ 


170) 


iBR, IF OK 




JSR 


PC.FATCHK 


jINC AND CHECK FOR MORE THAN 25 


ERRORS 


ERRHRD 


ERRN0.T26WDCPKT3SR 


j TSSR INCORRECT AFTER REREAD DATA 






TRAP 


CiERHRD 






.WORD 


209 






.WORD 


T26WOC 






.WORD 


PKTSSR 


CKLOOP 




iLOOP IF SELECTED 








TRAP 


CICLPJ. 


MOV 


FREE.RP 


1 CURRENT BUFFER ADDRESS TO R2 




MOV 


R3.R4 


j CURRENT RECORD SIZE 




SL« 


*256. ,R4 


I FIRST LOCATION IN BUFFER 




ADD 


R2,R4 


iSET UP POINTER 




CMP 


(R4).R3 


jCHECK DATA READ (R3-DATA ALSO) 




BEU 


180$ 


I BR, IF ALL IS WELL 




MOV 


CRO.R1 


jRECD DATA 




MOV 


R3.R2 


lEXPECTED DATA 




JSR 


PC.FATCHK 


i INC ANO CHECK FOR MORE THAN 25 


ERRORS 


ERRHRD 


ERRN0.T26DTA, EXPREC 


iDATA READ NOT - WRITTEN 





180$: 



CKLOOP 



TRAP CJERHRD 

.WORD 210 

.WORD T26DIA 

.WORD EXPREC 
j LOUP IF SELECTED 

TRAP CICLPl 



CZTKGA TK-j 
TEST 2; Rl 
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SEQ 153 



5607 
5608 
5609 
5610 
5611 
561? 
5613 
5614 
5615 

5ft IS 



5617 
5618 
5619 
5620 



032570 005724 

032572 160204 

032574 020403 

032576 001360 

032600 005723 

032602 010337 046112 

032606 022703 000412 

032612 001271 

032614 190$ 

032614 104406 

032616 

03261b 

032616 104403 

032620 023727 002170 000031 

032626 002402 

032630 004737 020170 

032634 999* 



TST 

sue 
cm? 

6NE 

TST 
MOV 
CMP 
BNE 

Cki.dcp 

ENDSUB 



CMP 
BUT 
JSR 



CR4)f 

R2,R4 

R4,R3 

173$ 

CR3)* 

R3.T26RSZ 

0266. ,R3 

145$ 



FATFLG,*25, 

999$ 

PC\CKDROP 



I BUMP TO NEXT LOCATION 

i CORRECT RECORDS SIZE VALUE 

I END OK RECORD YET 

j BR, IF NOT AT ENO OF RECORD 

I BUMP RECORD SIZE 

, RESET RECORD SIZE 

i END OF RECORD YET 

; BR, IF MORE RECORDS TO READ 

I LOOP IF SELECTED 

TRAP CICLP1 
!>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 

L10047^ 

TRAP CIESUB 
j IS ERROR COUNT AT 25 
j BR, IF LESS TflAN 25 
I TRY TO DROP THE UNIT 



CZTKGA TK--25 FRT END TUNC 43 
TEST 2; REREADS 



5622 
5623 
5624 
5625 
5626 
5627 
5628 
5629 
5630 
5631 
5632 
5633 
5634 
5635 
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SEU 154 



5636 
5627 

5638 
5639 
5640 
5641 
5642 
5643 
5644 
5645 
56 46 
5647 
5648 
5652 
5653 



5654 
5655 
5656 
5657 

5658 
5659 
5660 
5661 
5662 
5663 
5664 
5665 
5666 
56 70 
5671 



56 72 
5673 



032634 
032634 
032634 
032636 
03264? 
032646 



104402 

004737 050650 

004737 050742 

004737 051004 



032652 
032656 
032660 
032664 
032666 
032666 
032670 
032672 
032674 
032676 



0O4737 016660 

103407 

004 737 020116 

010C01 

104455 
0O0323 
003550 
011676 



032676 012704 045730 



032 /02 
032706 
032710 
032714 
032716 
032716 
032720 
032722 
032724 
032/26 
032726 



004 73 7 010342 

103407 

004737 020116 

010001 

104456 
000324 
004754 
011676 

104406 



TEST 2, SUBTEST 2 

VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP-0 
ANO SWB-1 OPERATES PROPERLY, THE TEST SEQUENCE TS 
THE SAME AS THAT USED IN SUBTEST 1, BUT IT IS 
VERIFIED THAT DATA STORED BY THE COMMAND CONTAINS 
SWAPPED BYTES, 



J - 



BGNSUB 



JSR 


PC.T26REST 


J5R 


PC.T26RT2 


JSR 


PC.T26RT3 



!>>>>>>>>>>>> BEGIN SUBTEST *>>>> >>>>>> > 

T2.2: 

TRAP C$BSUB 
i SET COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 
{SET UP OTHER COMMAND PACKET 

{****************************************************+************* 

j ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 

I****************************************************************** 

{DO INITIALIZE ON CONTROLLER 

I BR IF INIT WAS OK 

j INC ANO CHECK FOR MOPE THAN 25 ERRORS 

j CONTENTS OF TSSR REGISTER 

j FATAL ERROR TSSR WAS NOT OK 

TRAP C*ERDF 

.UORD 211 
.WORD 5FIERR 
.WORD SFIMSG 



JSR 


PC.SOFINIT 


BCS 


20$ 


JSR 


PC.FATCKK 


MOV 


R0.R1 


ERRDF 


ERRNO.SFIERR.SFIMSG 



20$j 



MOV 



i SUBROUTINE NEEDS PACKET ADDRESS 



M26PACKET.R4 

l***********************************+********************* ********* 

WRITE CHARACTERISTICS COMMAND CCALL TO WRTCHH) 

********************** A********************** *************** ****** 



26* 



JSR PC.WRTCHR 

BCS 261 

JSR PC.FATCHK 

MOV R0.R1 

ERRHRD ERRNU , WRTMSG , SFIMSG 



CKLOOP 



i ISSUE WRITE CHARACTERISTICS 

jBR, IF COMMAND ISSUED OK 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 

j SAVE CONTENTS OF TSSR 

{WRITE CHARACTERISTIC FAILED 

TRAP CIERHRD 

.WORD 212 
.WORD WRTMSG 
.WORD SFTMSG 

I LOOP IF SELECTED 

TRAP CtCLPl 
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SEQ 155 



5674 
5675 
5676 
567? 
5678 
5679 
5680 
5681 
5682 
5683 
5684 
5685 
5689 



5690 

.5691 

5692 
5693 
5694 
5695 
5696 
569/ 
5698 
5694 
5700 
5701 
5702 
5703 
5707 



5708 



032730 
032734 
032736 
032742 
032746 
032750 
032754 
032754 
032756 
032760 
032762 
032764 
032764 



5 



:i 



704 

710 

711 

71? 

713 

714 

5715 

5716 

5717 

5 718 

5719 

5 720 

5721 

572? 

5723 

5 /?4 

5/25 

5726 



032/66 
032 //2 
032774 
033000 
033002 
033004 
033010 
033010 
033012 
033014 
033016 
033020 
033020 
033022 
033026 



033034 

033042 
03304.', 
033046 
033050 
033054 
033060 
033064 
033070 



004 737 
103413 
016501 
012702 
010004 
004737 

104456 
000325 
047414 
011710 

104406 



013701 
010102 
052702 
020102 
001406 
004 737 

104456 
000326 
04 7125 
016360 

104406 
012703 
013737 



012737 

012704 

010300 

004 737 
010337 
010465 
004 737 
016501 



010444 

000000 

000200 

020116 



045756 
000002 

020116 



000400 
003072 



046062 



110005 
046060 



020410 
046066 
1/7/76 
017134 
000000 



046060 



{**#* + *** + * + + + * + **** + ***■* + + *************************************** + 

! ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

\ 

j ****************** **************************************, + ****,** + ** 

I CALL TAPE REWIND COMMAND 

I BR, IF NO PROBLEM 

{GET TSSR 

{SET UP EXPECTED TSSR 

{PACKET ADDRESS SET UP 

j INC AND CHECK FOR MORE THAN 25 ERRORS 

I REWIND NOT ACCEPTED 

TRAP CIERHRD 
.WORD 213 
.WORD T26RWN 
.WORD PKTSSR 
30t« CKLOOP ;LOOP IF SELECTED 

TRAP CSCLP1 



JSR 


PC , REWIND 


BCS 


30* 


MOV 


TSSRCR5).R1 


MOV 


03SR.R2 


MOV 


R0.R4 


JSR 


PC.FATCHK 



ERRHRD ERRNO , T26RWN , PKTSSR 



j******************************************************* *********** 

1 

{READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTOJ 

t 

j ****************************************************************** 

{PICK UP XSTO 

,SET UP EXPECTEO 

I SET BOT BIT IN EXPECTED 

{DOES EXP - REC'D 

{BR, IF EQUAL COK) 

jINC AND CHECK FUR MORE THAN 25 ERRORS 

{TAPE NOT AT BOT AFTER REWIND 

TRAP CIERHRD 

.WORD 214 
.WORD T26BUT 
.WORD EXPREC 
40$; CKLOOP il.OOP IF SELECTED 

TRAP CJCLP1 

{RECORD SIZE 
{STARTING WRITE BUFFER ADDRESS 



MOV 


T26BFR*6,R1 


MOV 


R1.R2 


BIS 


«BIT1,R2 


CMP 


R1.R2 


BEQ 


40* 


JSR 


PC.FATCHK 


ERRHRD 


ERRNO, T26B0T, EXPREC 



CKLOOP 

MOV 
MOV 



4256, ,R3 

FREE.T26RB 



j *************************** *********'***************************** 

{WRITE DATA.ACK.SWB COMMAND 

! 

j **************************** ************************* ******** ***** 



65$ 



MOV 


0110005, T26PK3 


MOV 


«T26PK3,R4 


MOV 


R3.R0 


JSR 


PC.FILLMEM 


MOV 


R3.T26SZ 


MOV 


R4.TSDBCR5) 


JSR 


PC # UAIT> 


MOV 


TSSK(R5),R1 



{WRITE DATA.ACK.SWG COMMAND 
{SET UP R4 WITH PACKET ADDRESS 

iSET PATTERN IN COHRECT REGISTER 
{FILL MEMORY WITH RECORD SIZE 
tSET UP RECORD SIZE IN PACKET 
{ISSUE COHMAND 
{WAIT FOP SSR TO SET 
{UET TSSR CONTENTS 



CZTKGA 1 


rK-25 FRT END FUNC 03 


TEST 2- 


REREADS 




5 7 J? 7 


033074 


012702 


000200 


5728 


033100 


020102 




5 /29 


03310? 


001406 




5730 


033104 


004737 


020116 


5734 








5735 








5736 








5737 


033110 








O331.V0 


104457 






03311? 


000327 






033114 


005011 






033116 


011710 




5738 


033120 








033120 


104406 




573<* 


033122 


005723 




5740 


033124 


022703 


000414 


574), 


033130 


001346 




5742 


033132 








033132 


104406 




5/43 


033134 






5/44 








5745 








5746 








5747 








5748 








5749 








5750 








5751 


033134 


00473/ 


010444 


575? 


033140 


10341:, 




5753 


033142 


01650.1 


oooooo 


5/54 


033146 


012702 


000200 


5755 


033152 


010004 




5756 


033154 


004737 


020116 


5760 


033160 








033160 


104456 






035162 


000330 






033164 


047414 






033166 


011710 




5761 


033170 








033170 


104406 




5 76 J 








5/63 








.5/64 








5765 








5766 








5767 








5 766 








5769 


033172 


013701 


045756 


5770 


033176 


010102 




57/1 


033200 


052702 


000002 


5/72 


033204 


020102 




5773 


033206 


001406 




5 / .'4 


033210 


004737 


020116 


5778 


033214 








053214 


104456 






033216 


000331 






033220 


047125 
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SEQ 156 



MOV 
CMP 
BEQ 
JSR 



0SSR.R2 
R1.R2 
75$ 
PC.FATCHK 



75$: 

80$: 
120$ 



ERRSOFT ERRNO.WRTERR.PKTSSR 



CK1.0QP 

TST (R3)* 

CMP 0268., R3 

BNE 65$ 
CKLOOP 



i SET UP EXPECTED 

lARF THEY EQUAL 

I BR, IF OK 

I INC AND CHECK FOR HOPE THAN 25 ERRORS 

j SOFT ERROR GENERATED BECAUSE THE 

{WRITE COMMAND IS NOT BEING CHF.CKEU 

I HERE, IT WAS CHECKED IN LEAH2 

jTSSR INCORRECT AFTER WRITE DATA 

TRAP C5ERS0FT 
.WORD 215 
.WORD URTEHR 
.WORD PKTSSR 

i LOOP IF SELECTED 

TRAP CICLP1 

I BUMP RECORD SIZE 

j END OF RECORD YET 

{BR, IF MCRE RECORDS TO WRITE 

{LOOP IF SELECTEO 

TRAP C$CLP1 



j+**+****+**4******* ****************************** **+****+*+******* 
I 

» ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

J 

{CALL TAPE REJIND COMMAND 

sBR, IF NO PROBLEM 

{GET TSSR 

{SET UP EXPECTED TSSH 

{PACKET ADDRESS SET UP 

{INC ANO CHECK FOR MORE THAN 25 ERRORS 

{REWIND NOT ACCEPTED 

TRAP 
.WORD 
. WORD 
.WORD 
130$: CKLOOP {LOOP IF SELECTED 

TRAP C$CLP1 



JSR 


PC. REWIND 


BCS 


130$ 


MOV 


TSSR(R5),R1 


MOV 


0SSR.R2 


MOV 


R0.R4 


JSR 


PC.FATCHK 



ERRHRD ERRNO , T26RWN , PKTSSR 



CJERHRD 

216 
T26RWN 

PKTSSR 



*************************************** *******4,***********»******** 

{READ MESSAGE BUFFER EXTENDED STATUS REGISTER ,'tRO CXSTO) 

J 

] *>*************t»*******t**At** + ***+i*i> + *****i*** ****** ****** ***** 

•PICK UP XSTO 

{SET UP EXPECTED 

{SET BOY BIT IN EXPECTED 

jDOFS t.XP - REC 

{BR, IF EQUAL (OK) 

i INC AND CHECK I OH MORE THAN 25 ERROR 1 ; 

{TAPE NOT AT BOT AFTER REWIND 

TRAP C$EHHRD 
.WORD 21/ 
.WORD T26B0T 



MOV 


T26BFR»6,R1 


MOV 


Rl.R? 


BIS 


♦BIT1.R2 


CMP 


R1.R2 


BEQ 


140$ 


JSR 


PC.FATCHK 



ERRHRH ERRND,T26B0T t EXPREC 



14 



CZTKGA TK 25 FRT END TUNC *3 
TEST 2: REREADS 





033222 


016360 




5779 


033224 








033224 


104406 




5760 


033226 


012737 


000400 


5761 








5782 








5763 








5764 








5765 








5766 








5767 








5 766 








5789 


033234 


012703 


00OO01 


5790 


033240 


004737 


010144 


5791 


033244 


103412 




5792 


033246 


016501 


000000 


5793 


033232 


012702 


000200 


5794 


033236 


004737 


020116 


5796 


033262 








033262 


104456 






033264 


000332 






033266 


046527 






033270 


016360 




5799 


033272 






5600 


033272 


013703 


046112 


5601 


033276 


013737 


003072 


5602 








5603 








5604 








5605 








5606 








5607 








5606 








5609 


033304 


012737 


151001 


5610 


033312 


012704 


046060 


56U 


033316 


010337 


046O66 


5612 


03332* 


010465 


177776 


5613 


033326 


0O4737 


017134 


5614 


033;' X? 


016501 


000000 


5615 


033*36 


012702 


000200 


5616 


033342 


020102 




5617 


033344 


001406 




5618 


033346 


004737 


020116 


5822 


033332 








033352 


104456 






033354 


000333 






033356 


047730 






033360 


011710 




5623 


033362 








033362 


104406 




5624 


053364 


013702 


003072 


5625 


033370 


010304 




5626 


033372 


162704 


000400 


582 7 


033376 


060204 




5626 


033400 


021403 




5829 


033402 


001410 




5830 033404 


011401 
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046112 



1401 i CKLOOP 

nOV ♦256..T26RSZ 



lLOOP IF SELECTED 
iSET UP RECORD SIZE 





SEQ 157 


.WORD 


EXPREC 


TRAP 


OCLPl 



,I*SUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER Of HECORDS 
iBIT 15 SETS DIRECTION - 0-FORWARO 1-REVERSE 



145»i 



MOV 


♦ 1.R3 


JSR 


PC, SPACE 


BCS 


1301 


MOV 


TSSR(R5),R1 


MOV 


#SSR,R2 


JSR 


PC. FATCMK 


ERRHRD 


ERRN0.T26SC, EXPREC 



150»i 



I SPACE ONE RECORD PARAMETER 

I CALL SPACE ROUTINE 

iBR. IF NO PROBLEM WITH SPACE COMMAND 

iGET TSSR 

iSET UP EXPECTED TSSR 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 

jPOSITION (SPACE RECORDS) FAILED 

TRAP CIERHWD 

.U0R0 216 
.WCRO T26SC 
.WOR'J EXPREC 



046062 



MOV T26RSZ.R3 

MOV FREE.T26RB 



iRECORO SIZE 
iSTARTING READ 



BUFFER ADDRESS 



REREAD OATA.CVC-l.ACK.SWB COMMANO 



046060 



1651: 



MOV 


♦ 151001 t T26PK3 


MOV 


♦T26PK3.R4 


MOV 


R3.T26S7 


MOV 


R4,TS06(R3) 


J&. 


PC.WAITF 


MOV 


TSSR(R5),Rl 


MOV 


♦SSR.R2 


CMP 


R1.R2 


BEQ 


1701 


JSR 


PC.FATCHK 


ERRHRD 


ERRN0.T26UOC.PKTSSR 



iREREAO DATA.CVC-l.ACK.Sk* COMMANO 
iSET UP R4 WITH PACKET AOORESS 
iSET UP RECORD SIZE IN PACKET 
j ISSUE COMMAND 
jWAIT FOR SSR TO SET 
iGET TSSR CONTENTS 
iSET UP EXPECTED 
i APE THEY EQUAL 
iBR, IF OK 

j INC AND CHECK FOR MORE THAN 
i TSSR INCORRECT AFTER REREAD 

TRAP 



170IJ CKLOOP 



lLOOP IF SELECTED 



• WORD 
.WORD 
.WORD 



25 ERRORS 
DATA 

CIERHRO 

219 

T26W0C 

PKTSSR 





MOV 


FREE.R2 




MOV 


R3.R4 




sue 


♦256. ,R4 


I75li 


P10 


R2.R4 




CMP 


(R4),R3 




BEQ 


160* 




MOV 


CfUUtRl 



TRAP 
TO R2 



iCURRENT BUFFER AOORESS 

jCURRENT RECORO SIZE 

|FIRST LOCATION IN BUFFER 

iSET UP POINTER 

iCHECK DATA READ (R3»QATA ALSO* 

j BR, IF ALU IS HtlL 

|R£CD DATA 



C»CLF1 
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5831 


033406 


010302 




583? 


033410 


004 73? 


020116 


5836 


033414 








033414 


104456 






033416 


000334 






033420 


047172 






033422 


016360 




5837 


033424 








033424 


104406 




5838 


033426 


005724 




5839 


0334 30 


160204 




5840 


033432 


020403 




5841 


033434 


001360 




5842 


033436 


005723 




5843 


033440 


010337 


046112 


5844 


033444 


022703 


000412 


5845 


033450 


001271 




5846 


033452 








033452 


104406 




5847 


033454 
033454 








033454 


104403 




5848 


033456 


023727 


002170 


5849 


033464 


002402 




5850 


033466 


004737 


020170 


5051 


033472 







MOV 
JSR 
ERRHRD 



180$ { CKLOOP 



190*5 



ENOSUB 



000031 



R3,R2 

PC.FATCHK 

ERRN0.T26DTA.EXPREC 



TST 


CR4)* 


SUB 


R2.R4 


CMP 


R4.R3 


BNE 


173$ 


TST 


(R3). 


MOV 


R3.T26RSZ 


CMP 


♦266. ,R3 


BNE 


1451 


CKLOOP 





9991* 



CMP 


FATFLG.025, 


BLT 


999* 


JSR 


PC.CKDRQP 



SEQ 158 



(EXPECTED DATA 

I INC ANO CHECK TOR MORE THAN 25 

iDATA READ NOT - WRITTEN 

TRAP 
.WORD 
.WORD 
.WORD 

jLOOP If SELECTED 

TRAP 

iBUMP TO NEXT LOCATION 

»CORRECT RECORDS SITE VALUE 

I END Or RECORO YET 

iBR, If NOT AT END Of RECORD 

iBIMP RECORD SIZE 

i STORE RECORD SIZE 

lENO Of RECORD YET 

»BR, IF MORE RECORDS TO READ 

lLOOP IF SELECTED 



ERRORS 

CIERHRD 
220 
T260TA 
EXPREC 

ClCLPl 



I > >>>*>>> > > > y 



TRAP 
ENO SUBTEST >>>>> 
L10050: 

TRAP 
iIS ERROR COUNT AT 25 
iBR, IF LLSS THAN 25 
j TRY TO DROP THE INIT 



ClCLPl 
>>>>>>> 

CIESUB 



Ki'F GA 2l K RSieRK END FUNC * 3 
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SEQ 159 



5853 
5854 

5855 
5856 
5857 

5858 
5859 
5860 
5861 
5862 
5863 
586m 
5865 
5866 
5867 
5868 
5869 
56 70 
5871 
5872 
5873 
5874 
5875 
5876 
5877 
5878 
5879 
5883 
5881 
5882 
5883 
5884 
5885 
5886 



5887 
5888 
5889 
5890 
5891 
5892 
5893 
5894 
5895 
58% 
5897 
5898 
5899 
5900 
5904 
5905 



5906 



TEST 2, SUBTEST 3 



VERIFIES THAT 
(READ REVERSE 



THE REREAD PREVIOUS COMMANO WITH OPP-1 
SPACE FORWARD) AND SWB-0 OPERATES 
PROPERLY. THE TAPE IS FIRST REWOUND AND THEN WRITTEN 
WITH A SERIES Of TEST RECORDS VARYING IN LENGTH ANO 
DATA CONTENTj THE FIRST FOUR BYTES OF EACH RECORD 
CONTAIN ITS RECORD NUMBER (INDICATING POSITION ON 
TAPE), THE TAPE IS THEN REWOUNO AGAIN, FOR EACH 
TEST RECORD, THE FOLLOWING SEQUENCE IS EXECUTED. 



L. THE REREAO PREVIOUS COMMAND WITH OPP-1 IS ISSUED 

AND THE RESULTS CHECKED 

2. A REAO FORWARD COMMAND IS THEN ISSUED AND THE 

DATA IS CHECKED TO VERIFY THAT THE TAPE WAS 
POSITIONED PROPERLY AFTER THE REREAD PREVIOUS 
COMMAND (E.G. THE TAPE SHOULD HAVE BEEN LEFT 
POSITIONED AT THE START Of THE TEST RECORO). THE 
READ FORWARO COMMAND LEAVES THE TAPE POSITIONED 
PROPERLY AT THE STAR! OF THE NEX r TEST RECORO. 

THE BYTE COUNT ON EACH REREAD PREVIOUS COMMANO IS SET 
TO THE LENGTH OF* THE EXPECTED RECORD, SO NO 
EXCEPTIONAL CONDITIONS SHOULD OCCUR. 



033472 
0334 72 
033472 
033474 
033500 
033504 
033510 



BGNSUB 



104402 
004737 
005037 
004737 
004737 



n 50650 
046106 
050742 
051004 



JSR 


PC.T26REST 


CLR 


T26CNT 


JSR 


PC.T26RT2 


JSR 


PCT26RT3 



!>>>>>>>>>>>> BEGIN SUBTEST »>>»»>>>>>>> 

T2.3: 

TRAP C*BSUB 

» SET COMMANO PACKET 
j CLEAN TAPE RECORD COUNTER 
I SET UP OTHER COMMANO PACKET 
I SET UP OTHER COMMAND PACKET 



033514 
033520 
033522 
033526 
033530 
033530 
033532 
035534 
033536 
033540 



004737 
103407 
004737 
010001 

104455 
000335 
003550 
011676 



016660 
020116 



,********** ************************************ ******************** 
I ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 

,****************************************************************** 

I DO INITIALIZE ON CONTROLLER 

iBR IF INIT WAS OK 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 

iCONTENTS OF TSSR REGISTER 

I FATAL ERROR TSSR WAS NOT OK 

TRAP CIERCF 

.WORD 221 
.WORD SFItRR 
.WORD SFIMSG 
20*: 



JSR 


PC.SOFINIT 


BCS 


20$ 


JSR 


PC.FATCHK 


MOV 


R0.R1 


ERRDF 


ERRNO,SFIERR, SFIMSG 



CZTKGA TK-25 FRT END FUNC 03 
TEST 2: REREADS 



5907 
5908 
5909 
5910 
5911 
5912 
5913 
5914 
5915 
5916 
5917 
5918 
5922 
5923 



5924 

5925 
5926 
5927 
5928 
5929 
5930 
5931 
5932 
5933 
5934 
593.5 
5936 
5937 
5941 



5942 

5943 
5944 
5945 
5946 
5947 
5948 
5949 
5950 
5951 
5952 
5953 
5954 
5955 
5959 



033540 012704 045730 



033544 
033550 
033552 
033556 
033560 
033560 
033562 
033564 
033566 
033570 
033570 



004737 
103407 
004737 
010001 

104456 
000336 
004754 
011676 

104406 



033572 
C33576 
033600 
033604 
033610 
033612 
033616 
033616 
033620 
033622 
033624 
033626 
033626 



004737 
103413 
016501 
012702 
010004 
0O4737 

104456 
0O0337 

047414 
011710 

104406 



0336 50 
033634 
033636 
033642 
033644 
033646 
033652 
033652 
033654 
033656 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
000340 
047125 



010342 
020116 



010444 

000000 
000200 

020116 



045756 
000002 

020116 



E13 
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SEQ 160 



MOV 



*T26PACKET,R4 



t SUBROUTINE NEEDS PACKET ADDRESS 



j*** *+*************♦*********************************************** 

iWRITE CHARACTERISTICS COMMANO (CALL TO WRTCHR) 

i 

l **************************************** ******* ************ ******* 



26$: 



JSR PC, WRTCHR 

BCS 26$ 

JSR PC.FATCHK 

MOV RO.Ri 

ERRHRD ERRNO , WRTMSG , SFIMSG 



CKLOOP 



I ISSUE WRITE CHARACTERISTICS 

I BR, IF COMMAND ISSUED OK 

I INC ANO CHECK FOP MORE THAN 25 ERRORS 

i SAVE CONTENTS OF TSSR 

; WRITE CHARACTERISTIC FAILED 

TRAP CIERHRD 
. WORD 222 
.WORD WRTMSG 
.WORD TIM«=G 

I LOOP IF SELECTED 

TRAP CIL..P1 



I**************************************** ************************** 

I 

j ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

i 

t ****************************************************************** 

l CALL TAPE REWIND COMMAND 

I BR, IF NO PROBLEM 

tGET TSSR 

i SET <JP EXPECTED TSSR 

I PACKET ADORESS SET UP 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 

, REWIND NOT ACCEPTED 

TRAP CIERHRD 
.WORD 223 
.WORD T26RWN 
.WORD PKTSSR 
301: CKLOOP ,L0OP IF SELECTED 

TRAP CICLP1 



JSR 


PC, REWIND 


BCS 


30$ 


MOV 


TSSR(R5),R1 


MOV 


♦SSR,R2 


MOV 


R0,R4 


JSR 


PCFATCHK 



ERRHRD ERRNO . T26RWN , PKTS SR 



****************************************************************** 

READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 
**************** **************************************** ********** 

iPICK UP XSTO 

i SET UP EXPECTED 

iSET BOT BIT IN EXPECTED 

iDOES EXP - REC'D 

,BR, IF EQUAL COK) 

jINC AND CHECK FOR MORE THAN 25 ERRORS 

I TAPE NOT AT BOT AFTER REWIND 

TRAP CIERHRD 
. WORD 224 
.WORD T26B0T 



MOV 


T26BFR»6,R1 


MOV 


R1.R2 


BIS 


•8IT1.R2 


CMP 


H1.R2 


BEQ 


40? 


JSR 


PC.FATCHK 



ERRHRD ERRNO ♦ T26B0T t EXPREC 



CZTKGA TK-25 FRT END FUNC 03 
TEST 2: REREADS 
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033660 


016360 




5960 


033662 








033662 


104406 




5961 


033664 


012703 


000400 


5962 


033670 


013737 


003072 046062 


5963 








5964 








5965 








5966 








5967 








5968 








5969 








5970 


033676 


012737 


140O05 046060 


5971 


033704 


012704 


046060 


5972 


033710 






5973 


033710 


010300 




5974 


033712 


004737 


020410 


5975 


033716 


010337 


046066 


5976 


033722 


013777 


046106 147142 


5977 


033730 


062737 


000001 046106 


5978 


033736 


010465 


177776 


5979 


033742 


004737 


017134 


5980 


033746 


016501 


000000 


5981 


033752 


012702 


000200 


5982 


033756 


020102 




5983 


033760 


001406 




5964 


033762 


004737 


020116 


5988 








5989 








5990 








5991 


033766 








033766 


104457 






033770 


000341 






033772 


005011 






033774 


011710 




5992 


033776 








033776 


104406 




5993 


034000 


005723 




5994 


034002 


022703 


000414 


5995 


034006 


001401 




5996 


034010 


000737 




5997 


034012 






5998 
5999 

6000 


034012 


005037 


046106 








6001 








6002 








6003 








6004 








6005 








6006 


034016 


004737 


010444 


6007 


034022 


103413 




6008 


034024 


016501 


000000 


6009 


034030 


0127C2 


000200 


6010 


034034 


010004 




6011 


034036 


004737 


023116 


6015 


034042 







40$: 



CKLOOP 

MOV 
MOV 



♦256., R3 

FREE.T26R6 



j LOOP IF SELECTED 



i RECORD SIZE 

I STARTING WRITE BUFFER ADDRESS 





SEU 161 


.WORD 


EXPREC 


TRAP 


C*CLP1 



iWRITE DATA.CVC-l.ACK COMMAND 

} ********* 4 *********************************************** v.u******* 



65$ 



MOV 


♦140005, T26PK3 


MOV 


♦T26PK3.R4 


MOV 


R3.R0 


JSR 


PC.FILLMEM 


MOV 


R3.T26SZ 


MOV 


T26CNT.8FREE 


ADD 


♦1.T26CNT 


MOV 


R4.TS06CR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


♦SSR.R2 


CMP 


R1.R2 


BEQ 


75$ 


JSR 


PC.FATCHK 



75$ 



EI1RS0FT ERRNO.WRTERR.PKTSSR 



CKLOOP 



TST 


(R3)» 


CMP 


♦268,, R3 


BEQ 


120$ 


BR 


65$ 



120$: 



CLR 



WRITE DATA.CVC-l.ACK COMMAND 
SET UP R4 UITH PACKET ADORESS 

SET PATTERN IN CORRECT REGISTER 

FILL MEMORY WITH RECORD SIZE 

SET UP RECORD SIZE IN PACKET 

MOVE TAPE RECORD NUMBER TO BUFFER 

NUMBER READY FOR NEXT RECORD 

ISSUE COMMAND 

WAIT FOR SSR TO SET 

GET TSSR CONTENTS 

SET UP EXPECTED 

ARE THEY EQUAL 

BR. IF OK 

INC AND CHECK FOR MORE THAN 25 ERRORS 

SOFT ERROR GENERATED BECAUSE THE 

WRITE COMMAND IS NOT BEING CHECKED 

HERE. IT WAS CHECKED IN LEAH2 

TSSR INCORRECT AFTER WRITE DATA 

TRAP C$ERSOFT 
.WORO 225 
.WORD WRTERR 
.WORD PKTSSR 
i LOOP IF SELECTED 

i RAP CSCLPl 
I BUMP THE RECORD SIZE 
iMAXIMUM SIZE YET 
jBR, IF AT END OF WRITE SEQUENCE 
iWRITE MORE RECORDS 

I SET RECORD COUNTER BACK TO ZERO 



T26CNT 

****************************************************************** 

ISSUE REUINO COMMAND TO SELECTED TAPE DRIVE 

****************************************************************** 

,CALL TAPE REWIND COMMAND 

j BR, IF NO PROBLEM 

j GET TSSR 

l SET UP EXPECTED TSSR 

jPACKET ADORESS SET UP 

l INC ANO CHECK FOR MORE THAN 25 ERRORS 

tREWINO NOT ACCEPTED 



JSR 


PC. REWIND 


BCS 


130$ 


MOV 


TSSR(R5),R1 


MOV 


♦SSR,R2 


MOV 


R0.R4 


JSR 


PC.FATCHK 



ERRHRD ERRNO , T26RWN , TK TSSR 



fi 



'TKGA TK-; 
:ST 2: Rl 



i FRT ENO FUNC 43 
(6 ADS 
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SEQ 162 



6016 

6017 
6018 
6019 
6020 
6021 
6022 
6023 
6024 
6025 
6026 
6027 
6028 
6029 
6033 



6054 

6035 
6036 
6037 
6038 
6039 
6040 
6041 
6042 
6043 
6044 
6045 
6046 
6047 
6048 
6049 
6050 
6051 
6052 
6053 
6054 
6055 
6056 
6057 
6058 
6059 
6060 
6061 
6062 
6063 
6067 



034042 

034044 
034046 
034050 
034052 
034052 



034054 
034060 
034062 
034066 
034070 
034072 
034076 
034076 
034100 
034102 
034104 
034106 
034106 



034110 
034114 
034120 
034124 



104456 
000342 
047414 
011710 

104406 



013701 
010102 
052702 
020102 
001406 
0O4737 

104456 
000343 
047125 
016360 

104406 



012703 
004737 
012703 
013737 



034132 
034140 
034144 
034150 
034154 
034160 
034164 
034170 
034172 
034174 
034200 
034200 



012737 
012704 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 



045756 
000002 

020116 



000001 
010144 
000400 
003072 



161001 
O46060 
046066 
177776 
017134 
000000 
000200 



020116 



046060 



130$; CKLOOP 



I LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



C$ERHRD 
226 

T26RWN 
PKTSSR 

C$CLP1 



t ***************************************** *********** ************** 

jREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 

i 

,******************************* ******** * ****** ** ** * * * ** ** ********* 

I PICK UP XSTO 

I SET UP EXPECTED 

>SET BOT BIT IN EXPECTED 

{DOES EXP - REC'D 

iBR, IF EQUAL COK) 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 

I TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

j LOOP IF SELECTED 

TRAP 



MOV 


T26BFR*6,R1 


MGV 


R1,R2 


BIS 


48IT1.R2 


CMP 


R1,R2 


b:q 


140$ 


JSR 


PC.FATCHK 



ERRHRD ERRNO , T26B0T , EXPREC 



140* j CKLOOP 



CIERHRD 
227 

T26B0T 
EXPREC 



C$CLP1 



♦I**************************************************************** 

ISSUE SPACE RECORDS COMMANO - VALUE IN R3 SETS NUMBER OF RECORDS 
BIT 15 SETS DIRECTION - 0-FORWARD 1 -REVERSE 

******************************************* ** ***************** **** 



MOV #1,R3 

JSR PC, SPACE 

MOV #256., R3 

MOV FREE,T26RB 



j SPACE 1 RECORD FORWARD 

i SPACE CALL 

i RECORD SIZE 

I STARTING READ BUFFER ADDRESS 



046062 150$: 

****************************************************************** 
REREAD DATA.CVC-l.ACK, OPP COMMAND 

**************************************************************** * * 



165$: 



MOV 


0161001, T26PK3 


MOV 


0T26PK3.R4 


MOV 


R3.T26SZ 


MOV 


R4.TSDBCR5) 


JSR 


PCWAITF 


MOV 


TSSRCR5),R1 


MOV 


0SSR.R2 


CMP 


R1.R2 


BEQ 


170$ 


JSR 


PC.FATCHK 



ERRHRD ERRNO , T26RRG , PKTSSR 



iREREAD DATA.CVC-l.ACK, OPP CCX1MAN0 

} SET UP R4 WITH PACKET ADDRESS 

l SET UP RECORD SIZE IN PACKET 

j ISSUE COMMANO 

jWAIT FOR SSR TO SET 

jGET TSSR CONTENTS 

I SET UP EXPECTED 

j ARE THEY EQUAL 

j BR, IF OK 

l INC ANO CHECK FOR MORE THAN 25 ERRORS 

jTSSR INCORRECT AFTER REREAD DATA 

TRAP CJERHRD 



WMWaBS end func m 
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034202 


000344 






034204 


046432 






034206 


011710 




6068 


034210 








034210 


104406 




6069 


034212 


005723 




6070 


034214 


062737 


000001 


6071 








6072 








6073 








6074 








6075 








6076 








6077 








6078 


034222 


012737 


140001 


6079 


034230 


010337 


046066 


6080 


034234 


010465 


177776 


6081 


034240 


004737 


017134 


6082 


034244 


016501 


000000 


6083 


034250 


012702 


000200 


6084 


034254 


020102 




6085 


034256 


001406 




6086 


034260 


004737 


020116 


6090 


034264 








034264 


104456 






034266 


000345 






034270 


005104 






034272 


011710 




6091 


034274 








034274 


104406 




6092 


034276 


017701 


146570 


6093 


034302 


013702 


046106 


6094 


034306 


020102 




6095 


034310 


001406 




6096 


034312 


004737 


020116 


6100 


034316 








034316 


104456 






034320 


000346 






034322 


046116 






034324 


016360 




6101 


034326 








034326 


104406 




6102 


034330 


022703 


000412 


6.103 


034334 


001401 




6104 


034336 


000672 




6105 


034340 






6106 


034 340 

034340 








034340 


104403 




6107 


034 342 


023727 


002170 


6100 


034350 


002402 




6109 


034 352 


004737 


020170 


6110 


034356 







046106 



170$: CKLOOP 

TST 
ADO 



CR3) + 

♦1.T26CNT 









SEQ 163 






.WORD 


228 






.WORD 


T26RRG 






.WORD 


PKTSSR 


lLOOP 


IF SELECTED 










TRAP 


C$CLP1 


{BUMP 


RECORD SIZE 






{BUMP 


TAPE RECORD 


COUNTER 





j ********* **** ****************************** ***** ******* ********** A 
1 

iREAD DATA, CVOl, ACK COMMAND 

J 

j ***************************************************** *** ********** 



046060 



195$: 



197 $ 



200$ 



MOV 


#140001 , T26PK3 


{READ DATA, CVOl. ACK COMMAND 




MOV 


R3.T26SZ 




iSET SIZE INTO PACKET 




MOV 


R4.TSDBCR5) 




i ISSUE READ DATA COMMAND 




JSR 


PC.WAITF 




{WAIT FOR SSR 




MOV 


TSSR(R5),R1 




{PICK UP THE TSSR 




MOV 


♦SSR.R2 




iSET UP EXPECTED 




CMP 


R1.R2 




j IS THE TSSR OK 




BEQ 


195$ 




i BR, IF TSSR OK (GOOD) 




JSR 


PC, PATCH* 




lINC AND CHECK FOR MORE THAN 25 


ERRORS 


ERRHRD 


ERRNO.RDERR, 


PKTSSR 


j READ DATA COMMANO FAILED 

TRAP 
.WORD 
.WORD 
.WORD 


CIERKRD 
229 

RDERR 
PKTSSR 


CKLOOP 






{LOOP IF SELECTED 

TRAP 


C$CLP1 


MOV 


HFREE>R1 




{FIRST WORD FROM READ BUFFER 




MOV 


T26CNT.R2 




i SET UP EXPECTED 




CMP 


R1.R2 




iIS TAPE POSITION CORRECT 




BEQ 


197$ 




jKEEP GOING POSITION OK 




JSR 


PC.FATCHK 




i INC ANO CHECK FOR MORE THAN 25 


ERRORS 


ERRHRD 


ERRN0.T26WNG 


.EXPREC 


;TAPE POSITION INCORRECT 

TRAP 
.WORD 
.WORD 
.WORD 


CIEHHRO 

230 

T26WNG 
EXPREC 



CKLOOP 



CMP 


#266. 


,R3 


BEQ 


200$ 




BR 


150$ 





000031 



999$ 



ENOSUB 



CMP 
BLT 
JSR 



TRAP 
;AT MAX SIZE Y^T 
iBR, IF AT END OF THE SUBTEST 
{KEEP GOING MORE RECORDS 



C$CLP. 



FATFLG.025, 

9*»9* 

PC.CKDROP 



;>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 

L. 10051: 

TRAP C$ESUB 

{IS ERROR COUNT AT 25 
{BR. IF LESS THAN 25 
{TRY TO DROP THE UNIT 



CZTKGA TK-25 FRT END FUNC 43 
TEST 2; REREADS 
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SEQ 164 



6112 








6113 








6114 








6115 








6116 








6117 








6118 








6119 








6120 








6121 








6122 








6123 








6124 








6125 








6126 








6127 


034356 
034356 








034356 


104402 




6128 


034360 


004737 


050650 


6129 


034364 


005037 


046106 


6130 


034370 


004737 


050742 


6131 


034374 


004737 


051004 


6132 








6133 








6134 








6135 








6136 








6137 








6138 








6139 


034400 


004737 


016660 


6140 


034404 


103407 




6141 


034406 


004737 


020116 


6145 


034412 


010001 




6146 


034414 








034414 


104455 






034416 


000347 






034420 


003550 






034422 


011676 




6147 


034424 






6148 








6149 


034424 


012704 


045730 


6150 








6151 








6152 








6153 








6154 








6155 








6156 








6157 


0344 .SO 


004737 


010342 


6158 


034434 


103407 




6159 


034436 


004 73 7 


020116 


6163 


034442 


010001 




6164 


034444 








034444 


104456 






034446 


000350 






034450 


004 754 






034452 


011676 





J * 

{TEST 2, SUBTEST 4 

{VERIFIES THAT THE REREAD PREVIOUS COMMAND WITH OPP-1 

jANO SWB-1 OPERATES PROPERLY. THE TEST SEQU'-Ni:;'. IS 

I THE SAME THAT IS USED IN SUBTEST 3, BUT I' IS 

i VERIFIED THAT DATA STORED BY THE COMMAND CONTAINS 

{SWAPPED BYTES, 

J 

J 

; 
i 
i - 

B6NSUB »>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T2.4s 

TRAP C$BSUB 
i SET COMMANO PACKET 
» CLEAR TAPE RECORD COUNTER 
jSET UP OTHER COMMAND PACKET 
j SET UP OTHER COMMAND PACKET 

I******************* *M************** ******************************* 
I 

l ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 

i 

l ************************************** ********** *********** ******* 

l DO INITIALIZE ON CONTROLLER 

I BR IF INIT UAS OK 

I INC ANO CHECK F0« MORE THAN 25 ERRORS 

I CONTENTS OF TSSR REGISTER 

; FATAL ERROR TSSR WAS NOT OK 

TRAP C$ERDF 
.WORD 231 
.WORD 5FIERR 
.WORD SFIMSG 



JSR 


PC.T26REST 


CLR 


T26CNT 


JSR 


PC.T26RT2 


JSR 


PC.T26RT3 



JSR 


PC.SOFINIT 


BCS 


20$ 


JSR 


PC,FATCHK 


hov 


R0.R1 


ERRDF 


ERRNO.SFIERR.SFIMSG 



20$: 



MOV 



0T26PACKET.R4 



-, SUBROUTINE NEiDS PACKET ADDRESS 



, ************************************** ,* *********** **************** 

J 

jWRITE CHARACTERISTICS COMMANO (CALL TO WRTCHR) 

i 
I****************************************************************** 



JSR PC.WRTCHR 

BCS 26$ 

JSR PC»FATCHK 

MOV R0.R1 

ERRHRD ERRNO ♦ WRTMSG , SF IMSG 



I ISSUE WRITE CHARACTERISTICS 

jBR, ir COMMANO ISSUED OK 

l INC AND CHECK FOR MORE THAN 25 ERRORS 

j SAVE CONTENTS OF TSSR 

iWRITE CHARACTERISTIC FAILED 

TRAP C*ERHRU 
.WORD 2*2 
.WORD WRTMSG 
.WORD SFIMSG 



CZTKGA TK-25 FRT END TUNC 03 
TEST 2: REREADS 
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SEQ 165 



6165 


034454 








034454 


104406 




6166 








6167 








6168 








6169 








6170 








6171 








6172 








6173 


034456 


004737 


010444 


6174 


034462 


103413 




6175 


034464 


016501 


000000 


6176 


034470 


012702 


000200 


6177 


034474 


010004 




6178 


034476 


004737 


020116 


6182 


034502 








034502 


104456 






034504 


000351 






034506 


047414 






034510 


011710 




6183 


034512 








034512 


104406 




6184 








6185 








6186 








6187 








6188 








6189 








6190 








6191 


034514 


013701 


045756 


6192 


034520 


010102 




6193 


034522 


052702 


000002 


6194 


034526 


020102 




6195 


034530 


001406 




6196 


034532 


004737 


020116 


6200 


034536 








034536 


104456 






034540 


000352 






034542 


047125 






034544 


016360 




6201 


034546 








034546 


104406 




6202 


034550 


012703 


000400 


6203 


034554 


013737 


003072 


6204 








6205 








6206 








6207 








6208 








6209 








6210 








6211 


034562 


012/37 


140005 


6212 


034570 


012704 


046060 


6213 


034574 






6214 


034574 


010300 




6215 


034576 


004 737 


020410 


6216 


034602 


010337 


046066 



26$; 



CKLOOP 



I LOOP IF SELECTED 



TRAP 



C*CLP1 



046062 



046060 



I** ********************* ******************************************* 

j ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

j ******** ******************************** * ************** *********** 

t CALL TAPE REWIND COMMAND 

i BR, IF NO PROBLEM 

I GET TSSR 

i SET UP EXPECTED TSSR 

I PACKET ADDRESS SET UP 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

i REWIND NOT ACCEPTED 

TRAP CIERHRD 
.WORD 233 
.WORD T26RWN 
.WORD PKTSSR 
30$} CKLOOP i LOOP IF SELECTED 

TRAP CJCLP1 



JSR 


PC.REWINO 


BCS 


30$ 


MOV 


TSSRCR5),R1 


MOV 


#SSR,R2 


MOV 


R0.R4 


JSR 


PC.FATCHK 



ERRHRD ERRNO , T26RWN , PKTSSR 



;****************************************************************** 

J 

{READ MESSAGE BUFFER EXTENOEO STATUS REGISTER ZERO (XSTO) 

J 

;************************ ****************************** A*********** 

jPICK UP XSTO 

•.SET UP EXPECTED 

I SET BOT BIT IN EXPECTED 

;D0ES EXP - REC'D 

:BR. IF EQUAL (OK) 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 

j TAPE NOT AT BOT AFTER REWIND 

TRAP CtERHRD 
.WORD 234 
.WORD T26B0T 
.WORD EXPMh'C 
40$ { CKLOOP j LOOP IF SELECTED 

TRAP CSCLP1 
jRECORO SIZE 
{STARTING WRITE BUF*FER ADDRESS 



l»J" 


T26BFR»6,R1 


MOV 


R1.R2 


BIj 


•BIT1.R2 


CMP 


R1.R2 


BEQ 


401 


JSR 


PC.FATCHK 



ERRHRD ERRNO , T26B0T , EXPREC 



CKLOOP 

MOV 
MOV 



0256. # R3 

FPEE,T26RB 



; ******************* *********************************************** 

J 

j WRITE DATA.CVC-l.ACK COMMANO 

j 
j****************************************************************** 



65li 



MOV #140005, T26PK3 

MOV #T;v,PK3.R4 

MOV R3.R0 

JSR PC.FILLMEM 

MOV R3.T26SZ 



iWRITE DATA.CVOl.ACK COMMAND 
(SET UP R4 WITH PACKET ADDRESS 

j SET PATTERN IN CORRECT REGISTER 
jFItL MEMORY WITH RECORD SIZE 
iSET iJP RECORD SIZE IN PACKET 



C/TKGA TK-25 FRT END FUNC 03 
TEST 2 i REREADS 



6217 
6218 
6219 
622C 
6221 
6222 
6223 
6224 
6225 
6229 
6230 
6231 
6232 



6233 

6234 
6235 
6236 
6237 
6238 
6239 
6240 
6241 
6242 
6243 
6244 
6245 
6246 
6247 
6248 
6249 
6250 
6251 
6252 
6256 



625/ 

6256 
6259 

6260 
6261 
6262 
6263 
6264 
6265 
6266 
6267 
6268 
6269 



034606 
034614 
034622 
034626 
034632 
034636 
034642 
034644 
034646 



034652 
034652 
034654 
034656 
034660 
034662 
034662 
034664 
034666 
034672 
034674 
034676 
034676 



034 702 
034706 
034/10 
054 714 
034720 
034722 
034 726 
034/26 
034 730 
034732 
034 734 
034 736 
034736 



034740 
034 744 
034 746 
034752 

034 754 



013777 
062737 
010465 
004737 
016501 
012702 
020102 
001406 
004737 



013^01 
010102 
052/02 
020102 

001406 



046106 
000001 
177776 
017134 
000000 
000200 



020116 



104457 
000353 
005011 
011710 

104406 

005723 

022703 000412 

001401 

000737 

005037 046106 



004737 010444 

103413 

016501 000000 

012702 000200 

0100O4 

004737 020116 

104456 
000354 
04 7414 
011710 

104406 



045/56 

000002 
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SEQ 166 



146256 
046106 



MOV T26CNT.HFREE 

ADD *1,T26CNT 

MOV R4JSDBCR5) 

JSR PC.WAITF 

MOV TSSRCR5),R1 

MOV 0SSR.R2 

CMP R1.R2 

BEQ 75$ 

JSR PC.FATCHK 



ERRSOFT ERRNO.WRTERR, PKTSSR 



75* 



CKLOOP 



1ST 


CR3)* 


CMP 


#266., R3 


BEQ 


120$ 


BR 


65$ 



120$ 



Cl.R 



I MOVE TAPE RECORD NUMBER TO BUFFER 

i NUMBER READY FOR NEXT RECORD 

j ISSUE COMMANO 

IWAIT FOR SSR TO SET 

j GET TSSR CONTENTS 

I SET UP EXPECTED 

j ARE THEY EQUAL 

{BR, IF OK 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 

I SOFT ERROR GENERATED BECAUSE THE 

{WRITE COMMAND IS NOT BEING CHECKED 

j HERE. IT WAS CHECKED IN LEAH2 

I TSSR INCORRECT AFTER REREAD DATA 

TRAP CIERSOFT 
.WORD 235 
.WORD WRTERR 
.WORD PKTSSR 

j LOOP IF SELECTED 

TRAP CICLP1 

{BUMP THF. RECORD SIZE 

I MAXIMUM SIZE YET 

:BR. IF AT END OF WRITE SEQUENCE 

{WRITE MORE RECORDS 

j SET RECORD COUNTER BACK TO ZERO 



T26CNT 

****************************************************************** 

ISSUE REWINO COMMANO TO SELECTED TAPE DRIVE 

****************************************************************** 

j CALL TAPE REWIND COMMANO 

j BR, IF NO PROBLEM 

l GET TSSR 

{SET UP EXPECTED TSSR 

{PACKET ADDRESS SET UP 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 

jRcWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 
{LOOP IF SELECTED 

TRAP 



JSR 


PC. REWIND 


BCS 


130$ 


MOV 


TSSR(R5).R1 


MOV 


0SSR.R2 


MOV 


R0.R4 


JSR 


PC.FATCHK 



130$ 



ERRHRD ERRNU , T26RWN , PK T SSR 



CKLOOP 



C$ERHHD 
236 

T26RWN 
PKTSSR 



CSCLP1 



}**************************************»***** s . ********************* 

I READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 

i 

j ************* ***************************************************** 

{PICK UP XSTO 

{SET UP EXPECTED 

{SET BOT BIT IN EXPECTED 

;D0ES EXP • NEC D 

i BR, IF EQUAL (OK) 



MOV 


T 26BFR*6.R1 


MOV 


R1.R2 


BLS 


#riITl,Hi? 


CMP 


Rl ,R2 


BEQ 


140$ 



CZTKGA TK-25 FRT END FUNC 43 
TEST 2: REREADS 



6270 
6274 



6275 

6276 
6277 
6278 
6279 
6280 
6281 
6282 
6283 
6284 
6285 
6286 
6287 
6288 
6289 
6290 
6291 
6292 
6293 
6294 
6295 
6296 
6297 
6298 
6299 
6300 
6301 
6302 
6303 
6304 
6308 



6309 

6310 
6311 
6312 
6313 
6314 
6315 
6319 



6320 



034 756 
034 762 
034762 
034 764 
034766 
034770 
034772 
034772 



034774 
035000 
035004 
035010 



035016 
035024 
035030 
035034 
035040 
035044 
035050 
035054 
035056 
035060 
035064 
035064 
035066 
035070 
035072 
035074 
035074 
0350 /6 
035102 
035106 
0351 10 
035112 
035114 
035120 
035120 
035122 
035124 
035126 
035130 
035130 



004737 020116 

104456 
000355 
047125 
016360 

104406 



012703 
0O4737 
012703 
013737 



012737 
012704 
010337 
010465 
0O4737 
016501 
012702 
02O102 
001406 
004737 

104456 
000356 
046335 
011710 

104406 
0W701 
013702 
000302 
020102 
001406 
004 737 

104456 
000557 
046116 
016360 

104406 



000001 
010144 
000400 
003072 



171001 
046060 
046066 
177776 
017134 
000000 
000200 



020116 



145770 
046106 



02011b 
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SEQ 167 



140$: 



JSR PC.FATCHK 

ERRHRD ERRNO , T26B0T , EXPREC 



CKLOOP 



jINC AND CHECK TOR MORE THAN 25 ERRORS 
(TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
. WORD 
I LOOP IF SELECTED 

TRAP 



CfERHRD 
23 7 

T26D0T 
EXPREC 



C$CLPl 



j****************************************************************** 

J 

{ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
I BIT 15 SETS DIRECTION - 0-FORWARD 1 -REVERSE 

i 

I ********************* *********+*********44+44 4**44 4**4**4444 +44444 



046062 150$: 



MOV 


#l,R3 


JSR 


PC, SPACE 


MOV 


0256. ,R3 


MOV 


FREE.T26RB 



j SET UP SPACE FORWARD 1 

j ISSUE SPACE COMMAND 

{RECORD SIZE 

j STARTING READ BUFFER ADDRESS 



; ************************** ***4***************************** + 4i*4*4* 

; REREAD DATA, CVC- 1 , ACK , OPP COMMAND 

5 

j************* *****************************«*4************ ****** 4** 



046060 



16b$ 



MOV 


0171001, T26PK3 


MOV 


OT26PK3.R4 


MOV 


R3.T26SZ 


MOV 


R4,TSDB(R5) 


JSR 


PC.HAITF 


MOV 


TSSR(R5),R1 


MOV 


*SSR,R2 


CMP 


R1.R2 


BEQ 


170$ 


JSR 


PC.FATCHK 



70* 



ERRHRD ERRNO, T26RRF ,Pl<TSSR 



CKLOOP 



MOV 


h*'REl ,R1 


MOV 


126CNT.R2 


SWAB 


H2 


CMP 


R1.R2 


UfcU 


ISO! 


JSR 


PC^ATCHK 



1<K)» 



ERRHRD ERRNO, T26WNG,ExPREC 



CKLOOP 



{REREAD DATA,CVC«l,ACK f OPP COMMAND 

j SET UP R4 WITH PACKET ADDRESS 

I SET UP RECORD SIZE IN PACKET 

jISSUF COMMANO 

j WAIT FOR SSR TO SET 

{GET TSSR CONTENTS 

;SET UP EXPECTED 

{ARE THEY EUUAL 

{ BR, IF OK 

;INC ANO CHECK FOR MORE THAN 25 ERRORS 

j TSSR INCORRECT AFTER REREAD DATA 

TRAP CIERHRD 
. WORD 238 
. WORD T26HR* 
.WORD PKTSSR 

l LOOP IF SELECTED 

t wAp r tPI Pi 

{FIRST WORD FROM READ BUFFER 

{SET UP EXPECTED 

{SWAP BYTES IN EXPECTED 

lIS TAPE POSITION COWMFCT 

{KEEP GUING POSITION OK 

{INC ANO CHFCK FOR MORE THAN 25 ERRORS 

{TAPE POSITIUN INCORRECT 

TRAP CIERHRO 
. WORD 239 
.WORD T.'hWNG 
.WORD EXPREC 



TRAP 



CSCLPl 



T^GA TK-PS KRi; END FUNC OS MACRO M120O 20-APR-84 08:13 
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SEQ 168 



6321 


035132 


005723 




6322 


035134 


062737 


000001 


6323 








6324 








6325 








6326 








6327 








6328 








632^> 








6330 


03514-? 


012737 


140001 


6331 


035150 


010337 


046066 


6332 


035154 


010465 


1/77 76 


6333 


035160 


004737 


017134 


6334 


035164 


0*5501 


000000 


6335 


035170 


j 12702 


000200 


6336 


035174 


020102 




6337 


035176 


001406 




6338 


035200 


004737 


020116 


6342 


035204 








035204 


104456 






035206 


000360 






035210 


046266 






03521? 


011710 




6343 


035214 








035214 


104406 




6344 


035216 


017701 


145650 


6345 


035222 


013702 


046106 


634 b 


035226 


020102 




634 7 


035230 


001406 




6348 


03523:? 


004 M 7 


020116 


6352 


035236 








035236 


104456 






035240 


000361 






035242 


046116 






035244 


016360 




6353 


035246 








035246 


104406 




6354 


035250 


022703 


000410 


6355 


035254 


001401 




635*. 


035256 


000654 




635/ 


035260 






635H 


035260 
035260 








035260 


104403 




*iVi*> 


03526.'* 


023727 


002170 


6360 


0352 '0 


002402 




6361 


OVv/*- 1 


004737 


020170 


6362 


035276 







046106 



TST 
ADD 



CR3)« 

01>T26CNT 



iNEXf RECORD Sl/fc 

I BUMP TAPE RECORD COUNTER 



j ****************** **^ ******* ****************************** *+**+++* 

l 

iRFAD DATA, CVC-1. ACK COMMAND 

J 

j ******************************************** *********** **♦** + **** + 



046060 



215$ 



217* 



220$ 



000031 



MOV 


4140001, T26PK3 


iREAD DATA, CVC*1, ACK COMMAND 




MOV 


R3.T26SZ 




iSt£T SIZE INTO PACKET 




MOV 


R4.TSPBCR5) 




I ISSUE READ DATA COMMAND 




JSR 


pc,uaii> 




j WAIT FOR SSR 




MOV 


TS5R(R5),R1 




i PICK UP THE TS5R 




MOV 


0SSR.R2 




j SET UP EXPECTED 




CMP 


RT.R2 




j IS THE TSSR OK 




DEQ 


215$ 




I BR. IF TSSR OK (GOOD) 




JSR 


PC.FATCHK 




j INC AMD CHECK FOR MORE THAN 25 


ERRORS 


ERRHRD 


ERRN0.T26RDF 


•PKTSSR 


jREAD DATA COMMAND FAILED 

TRAP 
, UORD 
.WORD 
.WORD 


CIERHRD 
240 
T26RDF 
PKTSSR 


CKLOOP 






l LOOP IF SELECTED 

TRAP 


C*CLP1 


MOV 


HTREE.Rl 




» FIRST WORD FROM READ BUFFER 




MOV 


T26CNT.R2 




j SET UP EXPECTED 




CMP 


R1.R2 




lIS TAPE POSITION CORRFCT 




beu 


i?17l 




I KEEP (i'J.lNb POSITION OK 




JSR 


Pr.FATCMK 




j INC AflJ CHECK FOR MORE THAN 25 


ERRORS 


ERRHRD 


ERRN0.T26WNG 


,EXPREC 


j TAPE FOSTTION INCORRECT 

TRAP 

.WORD 
.WORD 
.WORD 


CIERHHO 
241 

T26WNG 
EXPREC 



CKLOOP 

CMP 
REO 
BR 

ENDSUU 



CMP 
BUT 
JSR 



999$ 



#2!64. ,R3 

220 J 

150$ 



> AT! I G, #25. 

S^9$ 

PC.CKURUP 



TRAP 
j AT MA;-' SI/E YET 
\ BR, IF AT END OF THE SUBTEST 
l KEEP GOING MORE RECORDS 



CfCLPl 



)>>>>>>>>>>>> END SUBlf S'f )^>'>>^>>n>' 

I 10052: 

TRAP L$F.SUB 
tIS ERROR COUNT AT 25 
BR, 1^ It 55 THAN 2S 
jTRY TO DROP THE UNIT 



:TKGA TK 25 FRT END TUNC 43 
^ST 2: REREADS 

6364 
6365 

6366 

6367 
6368 
6360 
6370 
6371 
637,? 
6373 
6374 
6375 
6376 
637 7 
63/8 
6379 



6380 
6381 
638? 
6383 
6384 
6385 
6386 
6387 
6388 
6389 
6390 

639 1 

639? 
6396 
6397 



6398 
6399 
6400 
640.1 
640? 
6403 
6404 
6405 
6406 
6407 
6408 
6409 
6410 
6414 
6415 



641b 



035276 
035276 
035276 
035300 
035304 
035310 



035314 
035320 
035322 
035326 
035330 
035330 
035332 
035334 
035336 
035340 



035344 
035350 
035352 

035356 
035360 
035360 
035362 
035364 
03536b 
035370 
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SEQ 169 



104402 

004/3 7 050650 

004 737 05074? 

004737 051004 



004/37 016660 

10340/ 

004737 020116 

010001 

104455 
000362 
003550 
011676 



035340 012704 045730 



004/3/ 010342 

103407 

004 737 020116 

010001 

104456 
000363 
004 754 
Ollb/6 



TEST 2, SUBTEST 5 

VERIFIES THAT A REREAD PREVIOUS COMMAND READING A 
RECORD LONGER THAN THE SPECIFIED BYTE COUNT CAUSES 
TAP£ STATUS ALERT TERMINATION WITH THE RECORD LENGTH 
LOW (RLL) BIT SET. RESULTS ARE VERIFIED FOR BOTH 
STATES OF OPP CO AND 1). 



BGNSUB 



JSR 
JSR 
JSR 



PC.T26REST 

PC.T26RT2 

PC.T26RT3 



,>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T2.5: 

TRAP C$BSUB 
iSET COMMAND PACKET 

j SET UP OTHER COMMAND PACK, T 
j SET UP OTHER COMMAND PACKET 



{ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 
i 

j DO INITIALIZE ON CONTROLLER 

}BR IF INIT WAS OK 

;INC ANO CHECK FOR MORE THAN 25 ERRORS 

(CONTENTS OF TSSR REGISTER 

} FATAL ERROR TSSR WAS NOT OK 

TRAP CiERDF 
.WORD 242 
.WORD SFIERR 
.WORD SFIMSG 



JSR 


PC.SOFINIT 


BCS 


20$ 


JSR 


PC.FATCHK 


MOV 


R0.R1 


ERRDF 


ERRNO, SFIERR, SFIMSG 



205 



MOV 



{SUBROUTINE NEEDS PACKET ADDRESS 



0T26PACKET.R4 
WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

j ***************** **«* + + + + **4*4^+ + ******** + + + ** + + + 4 ****** ********** 



26$ 



JSR PC.WRTCHR 

BCS 26$ 

JSR PC.FATCHK 

MOV ROJU 

ERRHRD ERRNO , WRTMSG » SFIMSG 



CKLOOP 



USSUE WRITE CHARACTERISTICS 

t BR, IF COMMAND ISSUtD OK 

j INC AND CHECK FOR MORE THAN 25 ERRORS 

i SAVE CONTENTS OF TSSR 

iWRlTE CHARACTERISTIC FAILtO 

TRAP C$ERHRD 
.WORO 243 
.WORD WRTM5C 
.WORD SFIMSG 

jLOOP IF SELECTED 



57 



CZTKGA TK-25 FRT ENO F'UNC *3 


TEST 2, 


REREAD 


S 






035370 


104406 




6417 








64 18 








6419 








6420 








6421 








6422 








6423 








6424 


035372 


004737 


010444 


6425 


035376 


103413 




6426 


035400 


016501 


000000 


6427 


035404 


012702 


000200 


6428 


035410 


010004 




6429 


035412 


004737 


020116 


6433 


035416 








035416 


104456 






035420 


000364 






035422 


047414 






035424 


011710 




64 54 


035426 








035426 


104406 




64 35 








6436 








6457 








64 38 








64 39 








6440 








6441 








6442 


055430 


013701 


045756 


6443 


035434 


010102 




6444 


035436 


052702 


000002 


6445 


035442 


020102 




6446 


035444 


001406 




644 7 


035446 


004737 


020116 


645) 


035452 








035452 


104456 






035454 


000365 






035456 


047125 






035460 


01636O 




6452 


035462 








035462 


104406 




6453 


035464 


012703 


001000 


6454 
6455 
6456 


035470 


0X3737 


003072 








6457 








6458 








6459 








6460 








6461 








6462 


0354 76 


012737 


140005 


6463 


035504 


012704 


046060 


6464 


035510 






6465 


0J5510 


010537 


046066 


6466 


035514 


01C465 


1777 76 


646? 


035520 


004757 


017154 


6468 


035524 


016504 


000000 
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SEQ 170 



TRAP CICLP1 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



JSR 


PC. REWIND 


BCS 


301 


MOV 


TSSR(R5),R1 


MOV 


#SSR,R2 


MOV 


R0.R4 


JSR 


PC.FATCMK 


ERRHRD 


ERRN0.T26RWN.PKTSSR 



REWINO COMMAND 
PROBLEM 



30* j 



CKLOOP 



iCALL TAPE 

iBR, IF NO 

,G€T TSSR 

»SET UP txPECTED TSSR 

iPACKET ADORESS SET UP 

l INC AHO CHECK FOR MORE 

iREWINO NOT ACCEPTED 



lLOOP IF SELECTED 



THAN 25 ERRORS 



TRAP 
.WORO 
.WORD 
.WORD 

TRAP 



C»ER**D 
244 
T26RWN 
PKTSSR 

CtCLPl 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 



MOV 


T268FR»6,Rl 


MOV 


Rl.R? 


BIS 


♦6IT1.R2 


CMP 


R1.R2 


BEQ 


40* 


JSR 


PCFATCHK 


ERRHRD 


ERRN0.T2680T.EXPREC 



40li 



046062 



CKLOOP 

MOV #512.. R3 

MOV FREE,126RB 



jPICK UP XSTO 

iSET UP EXPECTED 

iSET BOT BIT IN EXPECTED 

lOOES EXP • REC'D 

iBR. IF EQUAL (OK) 

I INC AND C«C* FOR MOPE THAN 25 ERRORS 

I 'APE NOT AT BOT AFTER REWIND 

TRAP CltRMRO 

.WORO 245 
.WORO T26B0T 
.WORO ExPRfC 

j O.P IF SELECTED 

TRAP cir.i.pi 
tUt :ono SIZE 
iSlARTING WRITE BUFFER ADORESS 



WRITE DATA.CVC l.ACK COMMAND 



046060 



651 1 



MOV #)40005,T26PK3 

MOV #T26PK5.R4 

MOV R5.T26S/ 

HOV R4,TSDB(R5) 

JSR PC.WAITF 

MOV TSSRCQ5)*IU 



,U«ITE 0ATA,CVC-1.ACK COMMA**) 
I SET UP R4 WITH PACKET AOORESS 

jSCT up RECORD SIZF IN PACKEI 
i ISSUE COMMAND 
jWAIl FOR SSR TO SF.T 



iQET 



TSSR CONTENTS 



58 



CZTKGA TK 25 f RT ENO FUNC #3 
TEST ?: REREADS 



CI. 4 
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SEQ 171 



6469 
64 70 
64 71 
64 72 
6476 
64 7 7 
64 78 
6479 



6430 

6481 
6482 
6483 
6484 
6485 
6486 
6487 
6488 
6489 
6490 
6491 
649? 
6493 
6494 
6495 
6496 
6497 
6498 
6499 
6S03 



6504 

6505 
6506 
650 7 
6508 
6509 
6510 
65U 
651? 
6513 
6514 
6515 
6516 
6517 

6521 



035530 
035534 
035536 
035540 



035544 
035544 
035546 
035550 
035552 
035554 
035554 
035556 
035560 



035566 
035574 
035600 
035604 
035610 
035614 
035620 
035624 
035626 
035630 
035634 
035634 
035636 
035640 
035642 
035644 
035M4 



035646 
035652 
035654 

035660 
035662 
035664 
0356 70 
035670 
0356/2 
035674 



012702 
020102 
001406 
0O4737 



104457 
0O0366 
005011 
011710 

104406 
0O5303 
013757 



012737 
012704 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
0O4737 

104456 

0O036 7 
i 04 72 
011710 

104406 



013701 
010102 
052 702 
020102 
001406 
004737 

104456 
OOO5 70 
05024Q 



000200 



020116 



MOV 


4>SSR,R2 


CMP 


R1.R2 


BEQ 


75$ 


J5R 


PC.FATCHK 



ERRSOFT ERRNO.WRTERR, PKTSSR 



I SET U» EXPECTED 

I ARE THEY EQUAL 

iBR, IF OK 

l INC ANO CHECK FOR MORE THAN 25 ERRORS 

I SOFT ERROR GENERATED BECAUSE THE 

iWRITE COMMAND IS NOT 

I MERE. IT WAS CHECKED 

|T5SR INCORRECT AFTER 



003072 046062 



751? CKIOOP 

DEC 
MOV 



R3 
FREE.T26R6 



I LOOP IF SFLECTEO 

TRAP 
iSET RECORD SIZE TO 511, 
iSTARTING READ BUFFER AOORESS 



BEING CHECKED 


IN LEAM2 




WRITE DATA 


TRAP 


CIERSOTT 


.WORD 


246 


♦ WORD 


URTFRR 


.WORD 


PKTSSR 



CfCLPl 



REREAD DAfA,CVC-l,ACK,OPP-l COMMAND 



161001 
046060 
046066 
177776 
017134 
000000 
100204 



020116 



046060 



1651 



MOV 


#161001, T26PK3 


iRERE 


MOV 


♦T26PK3.R4 




iSET 


MOV 


R3.T26S/ 




iSET 


MOV 


R4,TS0B(R5) 




iISSU 


JSR 


PC.WAITF 




IWAIT 


MOV 


TSSR(R5),R1 




iGET 


MOV 


#5SR!SC!BIT2 


,R2 


iSET 


CMP 


R1.R2 




lARE 


BEQ 


1701 




iBR, 


JSR 


PC.FATCHK 




lINC 


ERRHRO 


ERRN0.T26TRL 


.PKTSSR 


iTSSR 



1701: CKLOOP 



AD DATA,CVC-l.ACK,OPP-i COMMAND 
UP R4 WITH PACKET AD0RL5S 
UP RECORO SUE IN PACKET 
£ COfTIAND 

FOR SSR TO SET 
TSSR CONTENTS 
UP EXPECTED 
THEY EQUAL 
IF OK 
ANO CHECK FOR MORE THAN 25 ERRORS 

INCORRECT AFTER REREAD DAT \ 



I LOOP IF SELECTED 



TRAP 


CIERHRD 


.Wr j 


24 7 


.WORD 


T26TRL 


.WORD 


PKTSSR 



TRAP 



CICLP1 



J 



045756 
01OOO0 

020X16 



jREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

i 

j#*4 **#*****&***************** ************************#*♦*#*****#*# 

iGET MESSAGE BUFFER 

iSET UP EXPECTEO 

I SET THE RLL BIT IN EXPECTFD 

j ARE THEY EQUAL 

iBR, IF EQUAL (ALL IS WELL) 

I INC ANO CHECK f QK MQRE THAN 25 ERRORS 

iTMfc RLL BIT WAS NOT SET IN XSTQ 

TRAP CtERHPO 

.WORD 248 
.WORD Ti26LON 



MOV 


T268FR.6.R1 


MOV 


R1,R*» 


BIS 


♦fill A 2,R2 


CMP 


R1.R2 


BEQ 


180» 


JSR 


PC.FATCHK 



LRRMftD LRRNQ* T26LUN.UPRKC 



W^! K «8£ EW FUNC M 



D'1.4 
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SEQ 172 





035676 


016360 




6522 


035700 








035700 


104406 




6523 


035702 


012703 


000/77 


6524 


035706 


013737 


003072 046062 


6525 








6526 








652 7 








6528 








6529 








6530 








6531 








6532 


035714 


012737 


141001 046060 


6533 


035722 


012704 


046060 


6534 


035726 


010337 


046066 


6535 


035732 


010465 


17 7/76 


6536 


035736 


0O4737 


017134 


6537 


035742 


016501 


OOOOOO 


653d 


035746 


012702 


100204 


6539 


035752 


020102 




6540 


035754 


001406 




6541 


035756 


0O4737 


020116 


6545 


035762 








035762 


104456 






035764 


000371 






035766 


050472 






035770 


011710 




6546 


035772 








035772 


104406 




6547 








6548 








6549 








6550 








6551 








6552 








6555 








6554 


035774 


013701 


045756 


6555 


036OO0 


010102 




6556 


036002 


052702 


OlOOOO 


6557 


036006 


020102 




6558 


036010 


001406 




6559 


036012 


0O4737 


020116 


6563 


036016 








036016 


104456 






036020 


000372 






0.36022 


05O240 






036024 


016360 




6564 


036026 






6565 


036O26 

056026 








036026 


104403 




6566 


036030 


023727 


002170 000031 


656 7 


036036 


002402 




6568 


036040 


004737 


020170 


6569 


036044 







160$ } CKI.OOP 

MOV 
MOV 



I LOOP IF SELECTED 



♦511. ,R3 
FREE,T26RB 



.UOflD 

TRAP 
i SET RECORD SIZE 
I STARTING READ BUFFER ADORFSS 



EXPREC 
C*CLP1 



iREREAD OATA.CVC-l.ACK COMMANO 

» 



365$: 



MCV 


♦141001, T26PK3 


MOV 


♦T26PK3.R4 


MOV 


R3.T26SZ 


MOV 


R4,TSDB(R5) 


J5R 


PC.UATTF 


MOV 


TSSRtR5),Rl 


MOV 


♦SSR!SC!BIT2,R2 


CMP 


R1.R2 


BEQ 


3701 


JSR 


PC.FATCMK 


ERRHRD 


ERRN0.T26TRL.PKT5SR 



^REREAD DATA,CVC-1.ACK COMMANO 

I SET UP R4 WITH PACKET ADDRESS 

iSE'i UP RECORD SIZE IN PACKET 

ilSSUfc COMMANO 

jWAIT FOR SSR TO SET 

,GET TSSR CONTENTS 

iSET UP EXPECTED 

l ARE THEY EQUAL 

iBR. IF OK 

l INC AND CHECK FOR MORE THAN 25 ERROPS 

I TSSR INCORRECT AFTER REREAD DATA 



3701: CKLOOP 



I LOOP IF SELECTED 



TRAP 

.WORD 
.WORD 
.WORD 

TRAP 



CIERHRD 
249 
T26TRL 
PKTSSR 

CtCLPl 



,REAO MESSAGE BUTTER EXTENDED STATUS REGISTER ZERO CXST©) 

l 

iGET MESSAGE BUTFER 

I SET UP EXPECTED 

I SET THE, RLL BIT IN EXPECTEP 

i APE THEY EQUAL 

j BR, IF EQUAL. CALL IS WELL) 

iJNC AND CHECK FOR MORE THAN 25 ERRORS 

»THE RLL BIT WAS NOT SET IU XSTO 

TRAP CIER^D 

.WORD 250 
.WORD T 261. ON 
.WORD EXPREC 



MOV 


T26BFR*6,R1 


MOV 


R1.R2 


BIS 


♦BIT12.R2 


CMP 


R1.R2 


BEQ 


380$ 


JSR 


PC.FATCHK 


ERRHRD 


ERRNO.T26L0N. EXPREC 



380$: 



999$: 



ENOSUB 



CMP 
BLT 
JSR 



FATFLG.02V 

9991 

PC.CKDROP 



,*>*>>>>*>>>> pMO SUBTEST 

L 10053: 

TRAP 
lIS ERROR COUNT AT 25 

i BR, If less than 25 

l TRY TO DROP THE UNIT 



>•*>■*>>>*•»•»>•» 



CIESUB 



CZTKGA TK-25 FRT END FUNC 03 
TEST 2: REREADS 
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SF.Q 173 



6571 
6572 
tof5 
6574 
6575 
6576 
6577 
6578 
6579 
6580 
6581 
6582 
6583 
6584 
6585 
6586 
6587 
6588 



6589 
6590 
6591 
6592 
6593 
6594 
6595 
6596 
6597 
6598 
6599 
6600 
6601 
6605 
6606 



6607 
6608 
6609 
6610 
6611 
6612 
6613 
6614 
6615 
6616 
6617 
6618 
6619 
6623 
6624 



036044 
036044 
036044 
036046 
036052 
036056 



104402 
0O4737 
004737 
0O4737 



056062 
036066 
036070 
036074 
036076 
036076 
03610O 
036102 
036104 
036106 



0O4737 
103407 
004737 
010001 

104455 
000373 
003550 
011676 



036112 
036116 
036120 
036124 
036126 
036126 
036130 
036132 



004 737 
103407 
004737 
010001 

104456 

0003 74 

004 754 



050650 
050742 
051004 



016660 
020116 



036106 012704 045730 



010342 
020116 



TEST 2, SUBTEST 6 

VERIFIES THAT A REREAD PREVIOUS COMMAND READING A 
RECORD SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES 
TAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH 
SHORT (RLS) BIT SET. IT IS VERIFIED THAT THE 
RESIDUAL BYTE COUNTER CRBPCR) IN THE MESSAGE BUFFER 
CONTAINS THE PROPER NONZERO VALUE CE.G.. THE 
DIFFERENCE BETWEEN THE ORIGINAL BYTE COUNT AND THE 
ACTUAL RECORD LENGTH). RESULTS ARE VERIFIED FOR BOTH 
STATES OF OPP (0 AND 1), 



BGNSUB 



JSR 
JSR 
JSR 



PCT26REST 
PC.T26RT2 

PC.T26RT3 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T2.6: 

TRAP CIBSUB 
jSET COMMAND PACKET 
I SET UP OTHER COMMANO PACKET 
i SET UP OTHER COMMAND PACKET 



I 

I ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 

J 

t *********************************** ***t*^*************+*+***«**«+* 

i DO INITIALIZE ON CONTROLLER 

jBR IF INIT WAS OK 

lINC ANO CHECK FOR MORE THAN 25 ERRORS 

I CONTENTS OF TSSR REGISTER 

j FATAL ERROR TSSR WAS NOT OK 

TRAP CIERDF 
.WORD 251 
.WORD SFIERR 
.WORD SFIMSG 



JSR 


PC.SOFINIT 


BCS 


201 


JSR 


PC.FATCHK 


MOV 


R0.R1 


ERRDF 


ERRNO.SFIERR.SFIMSG 



20$: 



MOV 



♦ T26PACKF.T.R4 



I SUBROUTINE NEEDS PACKET ADDRESS 



I 

■WRITE CHARACTERISTICS COMMANO (CALL TO WRTCHR) 
( 

(**********************************************/.*****«*********,«** 



JSR PC.WRTCHR 

BCS 26$ 

JSR PC.F'ATCHK 

MOV R0.R1 

F^RHHD ERRN0,WRTMSG» SFIMSG 



i ISSUE WRITE CHARACTERISTICS 

»BR, IF COMMANO ISSUED OK 

l INC ANO CHECK FOR MORE THAN 25 ERRORS 

I SAVE CONTENTS OF TSSR 

jWRITE CHARACTERISTIC FAILED 

TRAP C$ERHRD 

.WORD 252 
.WORD WRTMSG 



CZTKGA TK 25 FRT END FUNC 03 
TEST 2: REREADS 
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SEQ 174 





036134 


011676 




6625 


036136 








036136 


104406 




6626 








662/ 








6628 








6629 








6630 








6631 








6632 








6633 


036140 


004737 


010444 


6634 


036144 


103413 




6635 


036146 


016501 


OOCOOO 


6636 


036152 


012702 


000200 


6637 


036156 


010004 




6638 


036160 


004737 


020116 


6642 


036164 








036164 


104456 






036166 


000375 






036170 


047414 






036172 


011710 




6643 


036174 








036174 


104406 




6644 








6645 








6646 








6647 








6648 








6649 








6650 








6651 


036176 


013701 


045756 


6o52 


036202 


010102 




6653 


036204 


052702 


0O00O2 


6654 


036210 


020102 




6655 


036212 


0O1406 




6656 


036214 


004737 


020116 


6660 


036220 








036220 


104456 






036222 


000376 






036224 


047125 






036226 


016360 




6661 


036230 








036230 


104406 




6662 


036232 


012703 


000400 


6663 


036236 


013737 


003072 


6664 








6665 








6666 








6667 








6668 








6669 








6670 








6671 


036244 


012737 


140005 


6672 


036252 


012704 


046060 


6673 


036256 






66 74 


036256 


010337 


046066 


6675 


036262 


010465 


177776 



26*: 



CKLOOP 



jLOOP IF SELECTED 



O46062 



046060 



.WORD 
TRAP 



SFIMSG 
CfCLP! 



!*************************»**************************************** 

j ISSUE REWIND COMMANO TO SELECTED TAPE ORIVE 

i 

l **************************************** *************** *********** 

I CALL TAPE REWIND COMMANO 

iBK. ir NO PROBLEM 

I GET TSSR 

I SET LP EXPECTED TSSR 

iPACKET ADDRESS SET UP 

»INC ANO CHECK FOR MORE THAN 25 ERRORS 

I REWIND NOT ACCEPTED 

TRAP C*ERHRD 

.WORD 253 
.WORD T26RUN 
.WORD PKTSSR 
30$: CKLOOP jLOOP IF SELECTED 

TRAP C*CLP1 



JSR 


PC, REWIND 


BCS 


30* 


MOV 


TSSR(R5),R1 


MOV 


0SSR.R2 


MOV 


R0.R4 


JSR 


PC.FATCHK 



ERRHRD ERRN0.T26RWN, PKTSSR 



****************************************************************** 

READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 

****************************************************************** 

jPICK UP XSTO 
I SET UP EXPECTED 
» SET BOT BIT IN EXPECTED 
j DOES EXP - REC'D 
jBP, IF EQUAL (OK) 

{INC ANO CHECK FOR MORE THAN 25 ERRORS 
j TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
40*: CKLOOP jLOOP IF SELECTED 

TRAP 
{RECORD SIZE 
jSTARTING WRITE BUFFER ADDRESS 



hOV 


T268FR*6,R1 


MOV 


R1.R2 


BIS 


♦6IT1.R2 


CMP 


R1.R2 


BEQ 


40* 


JSR 


PC.FATCHK 



ERRHRD ERRN0,T26B0T,EXPREC 



CKLOOP 

MOV 
MOV 



*256. ,R3 
FREE.T26RB 



CJKRHRD 
254 
T26B0T 
EXPRFC 

ClCLPl 



j*********************** ****** ************************************* 

J 

jWRITE DATA,CVC-1,ACK COMMANO 

J 

,****************************************«************************* 



65* : 



MOV #140005, T26PK3 

MOV #T26PK3,R4 

MOV R3.T26SZ 

MOV R4,TSDBCR5) 



jWRITE DATA.CVC-l.ACK COMMANO 
iSET UP R4 WITH PACKET ADDRt SS 

I SET UP RECORD SIZE IN PACKET 
I ISSUE COMMANO 



?I^ GA ; >I K R^^gI EN ° ™ C « 



6676 
6677 
6678 
6679 
6680 
6681 
6685 
6686 
6687 
6688 



6689 

6690 
6691 
6692 
6693 
6694 
6695 
6696 
6697 
6698 
6699 
6700 
6701 
6702 
6703 
6704 
6705 
6706 
6707 
6708 
6712 



6713 

6714 

6715 
67 , 6 

6717 
6718 
6719 
6720 
6721 
6722 
6723 
6724 
6725 
6726 
6730 



036266 
036272 
036276 
036302 
036304 
036306 



036312 
036312 
036314 
036316 
036320 
036322 
036322 
036324 
036330 



036336 
036344 
036350 
036354 
056360 
036364 
036370 
036374 
036376 
036400 
036404 
036404 
036406 
036410 
036412 
036414 
036414 



036416 
036422 
036424 
036430 
036432 
036434 
036440 
036440 



004737 017134 

016501 000000 

012702 000200 

020102 

001406 

004737 020116 



104457 
000377 
005011 
011710 

104406 

012703 001000 

013737 003072 



01273^ 
012704 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000400 
050472 
011710 

104406 



013701 

010102 
052702 
020102 
001406 
004737 

104456 



161001 
046060 
046066 
177776 
017134 
000000 
100204 



020116 



045756 
040000 



020116 



G14 
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SEQ 175 



JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


♦SSR.R2 


CMP 


R1,R2 


BEQ 


75$ 


JSR 


PC.FATCHK 



fcRRSOFT ERRNO.WRTERR. PKTSSR 



t WAIT Ft SSR TO GET 

i GET TSSP CONTENTS 

j SET UP EXPECTED 

,ARE THEY EQUAL 

iBR, IF OK 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

j SOFT ERROR GENERATED BECAUSE THE 

I WRITE COMMAND IS NOT BEING CHECKED 

tHERE. IT WAS CHECKED IN LEAH2 

iTSSR INCORRECT AFTER WRITE DATA 



75$ 



046062 



046060 



CKLOOP 

MOV 
MOV 



♦512. ,R3 

FREE.T26RB 



TRAP 


CJERSOFT 


.WORD 


255 


.WORD 


WRTERR 


.WORD 


PKTSSR 


jLOOP IF SELECTED 




TRAP 


C$CLPl 


; RECORD SIZE 




i STARTING READ BUFFER ADDRESS 





j****************************************************************** 

iREREAD PREVIOUS, ACK.CVC-l.OPP-1 

i 

j**** *************** *********************************************** 

jREREAD PREVIOUS. MCK.CVC-1 .OPP-1 
165$: MOV 4T26PK3.R4 ,SET UP R4 WITH PACKET ADDRESS 

,SET UP RECORD SIZE IN PACKET 

# : c cue COMMANO 

iWAl'T FOR SSR TO SET 

iGET TSSR CONTENTS 

iSET UP EXPECTED 

»ARE THEY EQUAL 

iBR, IF OK 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

j TSSR INCORRECT AFTER READ DATA 



MOV 


♦161001, T26PK3 


MOV 


4T26PK3.R4 


MOV 


R3.T26SZ 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5).R1 


MOV 


*SSR!SC»BIT2,R2 


CMP 


R1.R2 


BEQ 


170$ 


JSR 


PC.FATCHK 


ERRHRD 


ERRN0.T26TRL. PKTSSR 



170$ 



CKLOOP 



iLOOP IF SELECTED 



TRAP 


C$ERHRD 


.WORD 


256 


.WORD 


T26TRL 


.WORD 


PKTSSR 



TRAP 



C$CLP1 



;****************************************************************** 

I 

jREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XS10) 

j ******** *♦**.**** ************************ ****************** ******** 

jGET MESSAGE BUFFER 
I SET UP EXPECTED 
tSET THE RLS BIT IN EXPECTED 
rARE THEY EQUAL 
BR, IF EQUAL (ALL IS WELL) 
XNC AND CHECK FOR MORE THAN 25 ERRORS 
HE RLL BIT WAS NOT SET IN XSTO 

TRAP CJERHRO 



hov 


T26BFR*6,R1 


MOV 


R1.R2 


BIS 


*BIT14,R2 


CMP 


R1.R2 


BEQ 


180$ 


JSR 


PC.FATCHK 



ERRHRD ERRNO , T26L0P , EXPREC 
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036442 


000401 






036444 


050322 






036446 


016360 




6731 


036450 






6732 


036450 


013701 


045754 


6733 


0364 54 


012702 


000400 


6734 


036460 


020102 




6735 


036462 


001406 




6736 


036464 


004737 


020116 


6740 


036470 








0364 70 


104456 






0364 72 


000402 






036474 


050404 






036476 


016360 




6741 


036500 








036500 


104406 




6742 


036502 


012703 


001000 


6743 


036506 


013737 


003072 


6744 








6745 








6746 








6747 








6748 








6749 








6750 








6751 


036514 


012737 


141001 


6752 


036522 


012704 


046060 


6753 


036526 


010337 


046066 


6754 


036532 


010465 


177776 


675'i 


036536 


004737 


017134 


6756 


036542 


016501 


000000 


6757 


036546 


012702 


100204 


6758 


036552 


020102 




6759 


036554 


001406 




6760 


036556 


004737 


020116 


6764 


036562 








036562 


104456 






036564 


000403 






036566 


0504 72 






036570 


011710 




6765 


036572 








036572 


104406 




6/66 








6767 








6768 








6769 








6770 








67/1 








6772 








6773 


036574 


013701 


045756 


6774 


036600 


010102 




6775 


036602 


052702 


040000 


67 76 


036606 


020102 




6777 


036610 


001406 




67 76 


036612 


004737 


020116 


6762 


036616 
036616 


104456 





180$ 



MOV 


T26BFR*4,R1 


MOV 


0256. ,R2 


CMP 


R1.R2 


BEQ 


190$ 


JSR 


PC.FATCHK 



ERRHRD ERRNO , T26PBP , EXPREC 



190$ 



046062 



CKLOOP 

MOV 
MOV 



«512.,R3 

FREE.T26RB 





SEQ 176 


.WORD 


257 


.WORD 


T26L0P 


.WORD 


EXPREC 


iPICK UP RESIDUAL BYTE COUNTER 




ITHIS SHOULD BE THE DIFFERENCE 




lis THE DIFFERENCE CORRECT 




jBR. if CORRECT 




j INC ANO ChECK FOR MORE THAN 25 


ERRORS 


jRBPCR NOT CORRECT 




TRAP 


C1ERHRD 


.WORD 


258 


.WORD 


T26PBP 


.WORD 


EXPREC 


lLOOP IF SELECTED 




TRAP 


CtCLPX 


I RECORD SIZE 




{STARTING READ BUFFER ADDRESS 





046060 



t*************************************. *************** ************** 

i 

jREREAD PREVIOUS .ACK.CVC- I. OPP-O 

» 

} ****************************************************************** 

jREREAO PREVIOUS, ACK.CVC-1 .OPP-0 

iSET UP R4 WITH PACKET ADDRESS 
i SET UP RECORD SIZE IN PACKET 
I ISSUE COMMAND 
jUAIT FOR SSR TO SET 
iGET TSSR CONTENTS 
i SET UP EXPECTED 
j ARE THEY EQUAL 
i BR IF OK 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO. T26TRL.PKTSSR jTSSR INCORRECT AFTER READ DATA 



MOV 


♦141001, T26PK3 


MOV 


♦T26PK3.R4 


MOV 


R3.T26SZ 


MOV 


R4.TSDe(R5) 


JSR 


PC, WAIT*" 


MOV 


TSSR(R5),R1 


MOV 


♦SSR!SC!BIT2,R2 


CMP 


R1.R2 


BEQ 


2701 


JSR 


PC.FATCHK 



2701: CKLOOP 



lLOOP IF SELECTED 



TRAP 


CiERHRD 


.WORD 


259 


.WORD 


T26TRL 


.WORD 


PKTSSR 



TRAP 



CJCLP1 



I*********************** ******************************************* 

i 

jREAD MESSAGE BUFFER EXTENDED STATU 1 ! REGISTER ZERO CXSTO) 

J 

} *********************************** o ****************************** 

iGET MESSAGE BUFFER 

jSET UP EXPECTED 

I SET THE RLS BIT IN EXPECTED 

j ARE THEY EQUAL. 

jBR. IF EQUAL CALL IS WEIL) 

i INC ANO CHECK FQR MORE THAN 25 ERRORS 

jTH£ RLL BIT UAS NOT SET IN XSTO 

TRAF CJtRHRD 



MOV 


T26BFR*6,R1 


MOV 


R1.R2 


BIS 


•BIU4.R2 


CMP 


R1.R2 


BEQ 


2801 


JSR 


PC.FATCHK 


ERRHRD 


ERRNO, T26L0P, EXPREC 



C2TKGA TK-25 IRT END TUNC *3 
TEST 2: REREADS 
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SEU 177 





036620 


ooc;-;oi 






036622 


05032.J 






036624 


016360 




6783 


036626 






67fl4 


036626 


013701 


045754 


6785 


036632 


012702 


000400 


6786 


036636 


020102 




6787 


036640 


001405 




6791 


036644 








036644 


104456 






036646 


000404 






036650 


050404 






036652 


016360 




6792 


036654 








036654 


104406 




6793 


036656 
036656 








036656 


104403 




6794 


036660 


023727 


0O2170 


6795 


036666 


002402 




6796 


036670 


004737 


020170 


6797 


036674 







280$; 



290$? 



000031 



999$: 



CKLOOP 
END5UB 



CMP 
BLT 
JSR 



.WORD 260 
.WORD T26L0P 
.WORD EXPREC 



MOV 


T26BFR*4,Rl 


MOV 


0256. ,R2 


CMP 


R1.R2 


BEQ 


290$ 


ERRHRD 


ERRN0,T26PBP»EXPREC 



iPICK UP RESIDUAL BYTE COUNTER 
I THIS SHOULD BE THE DIFFERENCE 
lIS THE DIFFERENCE CORRECT 
iBR, IF CORRECT 
jRBPCR NOT CORRECT 



FATFLG,*25, 

999$ 

PCCKOROP 



TRAP 


C$ERHRD 


.WORD 


260 


.WORD 


T26PRP 


.WORD 


EXPREC 


SELECTED 




TRAP 


C$CLP1 


>>>>> END SUBTEST >>>>>>>>>>>> 


L 1.0054: 




TRAP 


C$ESUB 


1 IS ERROR COUNT AT 25 




iBR, IF LESS THAN 25 




i TRY TO DROP THE UNIT 





CZTKGA TK-25 FRT END FUNC 03 
TEST 2: REREADS 



6799 
6800 
6801 
680c? 
6803 
6804 
6805 
6806 
6807 
6808 
6809 
6810 
6811 
6812 
6813 
6814 
6815 
6816 
6817 
6818 
6819 



6820 
6821 
6822 
6823 
6824 
6825 
6826 
6827 
6828 
6829 
6830 
6831 
6832 
6836 
6837 



6838 
6839 
6840 
6841 
6842 
6843 
6844 
6845 
6846 
684 7 
6848 
6849 
6850 
6854 
6855 



036674 
036674 
036674 
036676 
036702 
036706 



104402 
004737 
004737 
004737 



036712 
036716 
036720 
036724 
036726 
036726 
036 730 
036 732 
036734 
036736 



004737 
103407 
004737 
010001 

104455 
000405 
003550 
011676 



036742 
036746 
036750 
036754 
036756 



004 737 
103407 
004 73 7 
010001 



J 14 
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; ♦ 

!TEST 6, SUBTEST 7 
1 

I VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP-0 

lANO 5W6-0 OPERATES PROPERLY. THE TAPE IS FIRST 

iREWOUNO AND THEN WRITTEN UITH A SERIES OF TEST 

I RECORDS VARYING IN LENGTH ANO DATA CONTENT. THE TAPE 

iIS THEN REWOUND AGAIN. FOR EACH TEST RECORD, THE 

j TAPE IS SPACED FORWARD ONE RECORD ANO A REREAD 

»NEXT COMMANO ISSUED. RESULTS (STATUS, DATA, 

lETC.) ARE VERIFIED. THE BYTE COUNT ON EACH REREAD 

iNEXT COMMANO IS SET TO THE LENGTH OF THE EXPECTED 

I RECORD, SO NO EXCEPTIONAL CONDITIONS SHOULD OCCUR. 

• 

i 

I - 



SEQ 178 



050650 
050742 
051004 



016660 
020116 



036736 012704 045730 



010342 
020116 



BGNSUB 



JSR 
JSR 
JSR 



PC.T26REST 

PCT26RT2 

PC.T26RY3 



j >>>>>>>>>>>> BEGIN SUBTEST >>>>>>^>>>> 

T2.7 : 

TRAP CfBSUB 
I SET COMMANO PACKET 
I SET UP OTHER COMMAND PACKET 
i SET UP OTHER COMMANO PACKET 



j****************************************************************** 

i 

j ISSUE CONTROLLER "SOFT" INITIALIZE CARRY BIT CLEAR IF ERROR 

! 

;****************************************************************** 

j DO INITIALIZE ON CONTROLLER 

jBR IF INIT WAS OK 

j INC ANO CHECK FOR MORE THAN 25 ERRORS 

I CONTENTS OF TSSR REGISTER 

{FATAL ERROR TSSR WAS NOT OK 

TRAP CIERDF 
,WORO 261 
.WORD SUF.RR 
.WORD SF1MSG 



JSR 


PCSOFINIT 


BCS 


20 1 


JSR 


PC.FATCHK 


MOV 


R0.R1 


ERRDF 


ERRNO,SFIERR,SFIMSG 



MOV 



{SUBROUTINE NEEDS PACKET ADDRESS 



#T26PACKET,R4 

****************************************************************** 

WRITE CHARACTERISTICS COMMANO (CALL TO WRTCHR) 

j****************************************************************** 



JSR PC, WRTCHR 

BCS 261 

JSR PC.FATCHK 

MOV R0.R1 

ERRHRD ERRNO , WR TMSG , SF IMSG 



jISSUE WRITE CHARACTERISTICS 

I BR, IF COMMANO ISSUED OK 

j INC ANO CHECK FOR MORE THAN 25 ERRORS 

jSAVF CONTENTS Of TSSR 

jWRITE CHARACTERISTIC FAILED 



;ZTKGA TK 25 FRT END KUNC #3 
'EST 2: REREADS 



K14 
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SF.Q 179 





036756 


104456 






036760 


000406 






036762 


004754 






036764 


011676 




6856 


036766 








036766 


104406 




6857 








6858 








6859 








6860 








6861 








6862 








6863 








6864 


036770 


004737 


010444 


6865 


036771 


103413 




6866 


036776 


016501 


oooooo 


6867 


037002 


012702 


000200 


6868 


037006 


010004 




6869 


037010 


004737 


020116 


6873 


037014 








037014 


104456 






037016 


000407 






037020 


047414 






037022 


011710 




6874 


037024 








037024 


104406 




6875 








6876 








6ft 7 7 








6878 








6879 








6880 








6881 








688? 


03 7026 


013701 


045756 


6885 


037032 


010102 




6884 


037034 


052702 


000002 


6885 


037O4O 


020102 




6886 


037042 


OO1406 




688/ 


03704-1 


004737 


020116 


6891 


037050 








03 7050 


104456 






037052 


000410 






03 7054 


047125 






037056 


016360 




6892 


037060 








037060 


104406 




6893 


037062 


012703 


0OO400 


6894 


037066 


013737 


003072 


6895 








6896 








689 7 








689H 








6899 








6900 








6901 








690? 


03/0 74 


012/3/ 


140005 


6903 


037102 


012704 


046060 



046062 



CKLOOP 



j LOOP IF SELECTED 



r ap 

.WORD 
.WORD 
.WORD 

TRAP 



C$ERHRD 
262 

WRTMSG 
SFIMSG 

C$CLP1 



********************************* ******************** ************** 

{ISSUE REWINO COMMAND TO SELECTED TAPE DRIVE 
» 

j *********************** * **************** **4>* ***************** ***** 

j CALL TAPE REWIND COMMAND 

j DR. IF NO PROBLEM 

» GET T5SR 

|SET UP EXPECTED TSSR 

;PACKET ADDRESS SET UP 

{INC AND CHECK FOR MORE THAN 25 ERRORS 

I REWIND NOT ACCEPTED 

TRAP CIERHHD 
.WORD 263 
.WORD T26RWN 
.WORD PKTSSR 
30$: CKLOOP :LOOP IF SELECTED 

TRAP CJCLP1 



JSR 


PC, REWIND 


BCS 


33$ 


MOV 


TSSR(R5),R1 


MOV 


4SSR.R2 


MOV 


R0.R4 


JSR 


PC.FATCHK 



ERRHRD ERRN0.T26RWN, PKTSSR 



I****************************************************************** 

I READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

i 

1****** ********************************** ************************** 

jPICK UP XSTO 

{ SET UP EXPECTFD 

{SFT BOT BIT IN EXPECTED 

jDOES EXP - RECD 

j BR, IF EQUAL (OKI 

j INC AND ChECK FOR MORE THAN 25 ERRORS 

j TAPE NOT AT BOT AFTER REWINO 

TRAP CIERHRD 
. WORD ?64 
.WORD T26B0T 
.WORD EXPREC 
40$ j CKLOOP j LOOP IF SELECTED 

TRAP C$CLP1 
{RECORD SIZE 
{STARTING WRITE BUFFER ADDRESS 



MOV 


T26BFRf6,Rl 


MOV 


R1.R2 


BIS 


#BIT1,R? 


CMP 


R1.R2 


BEQ 


40$ 


JSR 


PC.FATCHK 



ERRHRD ERRNO , T26B0T .EXPREC 



CKLOOP 

MOV 
MOV 



0256. ,R3 
FREE.T26RB 



j****************************************************************** 

I write data.cvc-i.ack command 

j ************************ ******************************** ********* * 



046060 



MOV «140005. T26PK3 
MOV <>Ta6PK3,R4 



{WRITE OATA.CVC-l.ACK COMMAND 
I SET UP R4 WITH PACKET ADDRESS 



Kft 



TKGA 



IWa" 



:ad$ 
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SEQ 180 



6904 
6905 

6906 
6907 
6908 
6909 
6910 
6911 
691? 
6913 
69 in 
6918 
6919 
6920 
6921 



6922 

6923 
6924 
6925 



6927 

6928 
6929 
6930 
6931 
6932 
6933 
6934 
6935 
6936 
693 1 
6938 
6939 
6940 
'•944 



ti94S 

6946 
694 / 
0948 
6949 
6950 
6951 
695,* 
6953 
6954 
69SS 



037106 
037106 
037110 
037114 
037120 
037124 
057130 
037134 
037140 
037142 
037144 



037150 
037150 
037152 
037154 
037l5t> 
037160 
037160 
037162 
037164 
037170 
037172 
0373 72 
037174 



037174 
037200 
037202 
03/206 
037212 
037214 
037220 
03722i? 
03722.: 
037224 
037226 
037230 
037230 



037232 
037256 
037240 



010300 
004 73 7 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 



104457 
0O0411 
005011 
011710 

104406 
005723 
022703 
001346 

104406 



004737 
103413 
016501 
012702 
010004 
004737 

104456 
00041c' 
04 7414 
011710 

104406 



013/01 
010102 
052703 



0204 10 
046066 

177776 
017134 

oooooo 

000200 



020116 



000414 



010444 

OOOOOO 
000200 

020116 



045 756 
000002 



65$; 



75$; 

80$: 
120$ 



MOV R3.R0 

JSR PC.FILLMEM 

MOV R3.T26SZ 

MOV R4.TSDBCR5) 

JSR PC.WAITF 

MOV TSSRCR5),R1 

MOV 0SSR.R2 

CMP R1.R2 

BEQ 75 $ 

JSR PC.FATCHK 



ERRSOFT ERRNO.WRTERR.PKTSSR 



CKLOOP 

TST (R3)» 

CMP 0268.. R3 

BNE 65$ 
CKLOOP 



SET PATTERN IN CORRECT REGISTER 

FILL MEM03Y WITH RECORD SIZE 

SET UP RECORD SIZE IN PACKET 

ISSUE COMMAND 

WAIT FOR SSR TO SET 

GET TSSR CONTENTS 

SET UP EXPECTED 

ARE THEY EQUAL 

BR, IF OK 

INC ANO CHECK FOR MORE THAN 25 ERRORS 

SOFT ERROR GENERATED BECAUSE THE 

WRITE COMMAND IS NOT BEING CHECKED 

HERE, IT WAS CHECKED IN LEAH2 

TSSR INCORRECT AFTER WRITE DATA 



jLOOP IF SELECTED 



TRAP 


C$ERSOFT 


.WORD 


265 


.WORD 


WRTERR 


.WORD 


PKTSSR 



TRAP 



iBUMP RECORD SIZE 

j END Of RECORD YET 

j BR. V MORE RECORDS TO WRITE 

jLOOP IF SELECTED 

TRAP 



C$CLP1 



C$CLP1 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

{ CALL TAPE REWIND COMMAND 

;BR, IF NO PROBLEM 

jGET TSSR 

I SET UP EXPECTED TSSR 

j PACKET ADDRESS SET UP 

j INC ANO CHECK FOR MORE THAN 25 ERRORS 

; REWIND NOT ACCEPTED 

TRAP CJERMRD 
. WORD 266 
. WOP ) T26RWN 
.WORD PKTSSR 
130$; CKLOOP ,LOOP IF SELECTED 

TRAP CSCLPl 



JSR 


PC, REWIND 


BCS 


130$ 


MOV 


TSSR(R5),R1 


MOV 


4SSR.R2 


MOV 


H0.R4 


JSR 


PC.FArCHK 



ERRHRD ERRN0.T26RWN, PKTSSR 



i 

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 

I 

j****.**,*.*******,,******** ******4*******+******** ********************* 



MOV T26BFR*6.R1 
MOV RI.R2 
BIS «BXri»R2 



j PICK UP XSTO 

iSET UP CXPECTED 

iSET BQT BIT IN EXPECTED 



^ GA ;>? K RiMB£ 



END FUNC 03 



6956 

6957 
695tf 
6962 



6963 

6964 
6965 

6966 
6967 
6968 
6969 
6970 
69/1 
69 I? 
69 / 3 
6974 
6975 
6976 
697 7 
69/8 
6979 

6980 
6984 



6985 
698h 
6987 
6988 
6989 
6990 
6991 
699;? 
t>993 
11994 
6995 
69 f >6 
699/ 
6998 
6999 
7000 
7001 
7002 
7O03 
7004 
7008 



05/244 

057246 
037250 
037254 
037254 
037256 
037260 
037262 
037264 
03/264 
037266 
037274 



03730;? 

037306 
037310 
03/314 
037320 
03/322 
03/326 
037326 
037330 
03/332 
03/334 
03/336 
03/336 
037342 



03/350 
037356 
037362 
03/366 
03/372 
037376 
037402 
05/406 
03/410 
037412 
037416 
03/416 
03/420 
03/422 
037424 



020102 
001406 
004737 

104456 
000413 

04/125 
016360 

104406 
012737 
000420 



012/03 

G04/37 
103413 
016501 
012702 
010004 
00473/ 

104456 
000414 
046527 
016360 

013/03 
013737 



012/3/ 
012704 
010337 
010465 
00473/ 
0.16501 
012/02 
020102 
001406 
00473/ 

104456 
000415 
04// 50 
011710 



020116 



000001 
010144 

000000 
000200 

020116 



046112 
005072 



141401 
04 606 
046066 

17777b 
01/134 

oooooo 

000200 



020116 
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SEQ 181 



R1.R2 

140$ 



CMP 

BEG 

JSR PC FATCHK 

ERRHRD ERRNQ , T26B0T , EXPREC 



140* 



000400 046112 



CKLOOP 

MOV 
BR 



0256..T26RSZ 
150$ 



I DOES EXP - REC'D 

jBR, IP EQUAL COK) 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

j TAPE NOT AT BOT AFTER REUIND 

TRAP CJERHRD 
.WORD 267 
.WORD T26B0T 
.WORD EXPREC 

j LOOP IF SELECTED 

TRAP C5CLP1 

j STORE START RECORD SI2E 
I SKIP THE SAPCE THIS TIME 



t 

j ISSUE SPACE REC0RD5 COMMAND VALUE IN R3 SETS NUMBER OF RECORDS 

iBIT 15 SETS DIRECTION - 0-FORWARD 1-REVERSE 

» 

;* + * + ********* * + *** + * + **** + *4.* * + * + + * + **** + + *+ + + ** + + ** + * + * + + +* + + * + ** 



145$ 



MOV 


4M..R3 


JSR 


PC . SPACE 


BCS 


150$ 


MOV 


TSSR(R5),R1 


MOV 


0SSR.R2 


MOV 


R0.R4 


JSR 


PC, FATCHK 



ERRHRD ERRNO, T26SC, EXPREC 



.bO$ 



i SPACE ONE RECORD PARAMETER 

I CALL SPACE ROUTINE. 

I BR, IF NO PROBLEM UITH SPACE COMMAND 

jGET TSSR 

j SET UP EXPECTED TSSR 

j PACKET ADDRESS SET UP 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

{POSITION (SPACE RECORDS) FAIL ED 

TRAP C$ERHRD 

.WORD 

.WORD 

.WORD 



268 

T26SC 

EXP r ;EC 



046062 



MOV T26RS/.R3 
MOV FREE.T26RB 



jRECORO SIZE 

j STARTING READ RUFFEH ADDRESS 



? 

{REREREAD DATA, CVC - 1 , ACK COMMAND 

i 



046060 



165$ j 



MOV 


0141401, T26PK3 


MOV 


4T26PK3.R4 


MOV 


H3,T26SZ 


MOV 


R4, rSDBCR5") 


JSR 


PCUAITF 


MOV 


TSSR(R5),R1 


MOV 


0SSR.R2 


CMP 


R1,R2 


REQ 


170$ 


JSR 


PC, FATCHK 



ERRHRD ERRNO, T26WDC.PKTSSR 



;REREREAD DATA, CVC- 1 , ACK COHMANO 

{SET UP R4 WITH PACKET ADDRESS 

{SET UP RECORD SIZE IN PACKET 

I ISSUE COMMAND 

jUAIT FOR SSR TO SET 

j GET TSSR CONTENTS 

i SET UP EXPECTED 

,ARE THEY EQUAL 

I BR, IF OK 

I INC AW CHECK FOR MORE THAN 25 ERRORS 

{TSSR INCORRECT AFTER REREAD DATA 

• RAP CSERHMt) 
. UORD 269 
.WORD T26WDC 
.WURD PKTSSR 



CZTKGA TK-25 FRT END FUNC 03 
TEST 2; REREADS 



7009 

7010 

7011 
7012 
7013 
7014 
7015 
7016 
7017 
7018 
7022 



7023 

7024 

7025 
7026 
7027 
7028 
7029 
7030 
7031 
7032 

7033 



7034 
7035 
7036 
7037 



037426 
037426 
037430 
037434 
037436 
037442 
037444 
037446 
03 7450 
037452 
0374 54 
037460 
037460 
037462 
037464 
037466 
037470 
037470 
037472 
0374 74 
037476 
037500 
037502 
037504 
037510 
037514 
037516 
037516 
03/520 
037520 
037520 
03/522 
03/530 
037532 
037536 



104406 
01370? 
010304 
162704 
060204 
021403 
001410 
01.1401 
010302 
004737 

104456 
000416 
0471/2 
016360 

104406 
005724 
160204 
020403 
001360 
005723 
010337 
022703 
001270 

104406 



104403 
023727 
002402 
004737 
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SEQ 182 



003072 
000400 



173$; 



020116 



180$: 



046112 
000410 



190$; 



002170 
020170 



000031 



999$; 



CKLOOP 




jLOOP IF SELECTED 








TRAP 


C$CLP1 


MOV 


FREE.R2 


{CURRENT BUFFER ADDRESS TO R2 




MOV 


R3.R4 


{CURRENT RECORD SIZE 




SUB 


4256. # R4 


»FIRST LOCATION IN BUFFER 




ADD 


R2.R4 


i SET UP POINTER 




CMP 


(R4),R3 


{CHECK DATA READ CR3-DATA ALSO') 




BEQ 


180$ 


j BR. IF ALL 15 WELL 




MOV 


CR4),R1 


iRt-XD DATA 




MOV 


R3,R2 


(EXPECTED DATA 




J5R 


PC.FATCHK 


{INC AND CHECK FOR MORE THAN 25 


ERRORS 


ERRHRD 


ERRN0.T26DTA 


EXPREC {DATA READ NOT - WRITTEN 








TRAP 


C$ERHRD 






.WORD 


270 






.WORD 


T26DTA 






.WORD 


EXPREC 


CKLOOP 




{LOOP IF SELECTED 








TRAP 


CICLP1 


1ST 


( R4 ) ♦ 


;BUMP TO NEXT LOCATION 




SUB 


R2.R4 


{CORRECT RECORDS Sl/t. VALUE 




CMP 


R4.R3 


{END OF RECORD YET 




BNE 


173$ 


j BR, IF NOT AT END OF RECORD 




TST 


(R3) + 


{BUMP RECORD SIZE 




MOV 


R3.T26R5Z 


{STORE PRESENT RECORD SIZE 




CMP 


0264, ,R3 


{END OF RECORD YET 




BNF. 


145$ 


ibR , W MORE RECORDS TO READ 




CKLOOP 




{LOOP It SELECTED 








TRAP 


C$CLP1 


ENDSUB 




!>>>>>>>>>>>> FN J SUBTEST >>:»>:>>>>>>>> 






L 10055: 








TRAP 


C$ESUH 


CMP 


FATFLG,*25. 


{IS ERROR COUN T AT 25 




BL.T 


999$ 


{BR, IF LESS THAN 25 




JSR 


PC.CKOROP 


{TRY TO DROP THE UNIT 





C/TKGA TK V5 'RT tNO *'UNC «3 


TEST 2; REREADS 




7039 






7040 






7041 






704? 






704 3 






7044 






7045 






7046 






704 7 






7048 






7049 






7050 






7051 






7052 03 7536 






037536 






037536 


104402 




7053 037540 


004737 


050650 


7054 03 7544 


004737 


05074? 


7055 037550 


004737 


051004 


7056 






7057 






705a 






7059 






7060 






7061 






7062 






70S3 037554 


0O4737 


016660 


7064 037560 


103407 




7065 037562 


004737 


020116 


7069 03756S 


010001 




7070 0375"0 






037570 


104455 




037572 


000417 




037574 


003550 




037576 


011676 




7071 037600 






70 72 






7073 037600 


0X2704 


045730 


7074 






70 75 






7076 






7077 






7078 






7079 






7080 






7081 037604 


004737 


01034? 


70B2 037610 


103407 




7083 037612 


0O4737 


0201 lfc 


70B7 037,16 


010001 




70M 03 7620 






03 7620 


104456 




037622 


0OO420 




03762* 


0O4 754 




03 7626 


011676 




7089 03 76 30 






037640 


104406 




VOW 
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SEQ 183 



TEST 2, SUBTEST 8 

VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP-0 
AND SUB-1 OPERATES PROPERLY. THE TEST SEQUENCE IS 
THE SAME AS THAT USED IN SUBTEST 1. BUT IT IS 
VERIFIED THAT DATA STORED BY THE COMMAND CONTAINS 
SWAPPED BYTES. 



BGNSUB 



JSR 
JSR 

JSR 



PC.T26REST 

PC.T26RT2 

PC.T26RT3 



j >>>>>>>>>>> > BEGIN SUBTEST >>>>»»>>>>,> 

T2.8j 

TRAP CIBSU6 
i SET COMMAND PACKET 
iSET UP OTHER COMMAND PACKET 
i SET UP OTHER COMMAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



20* J 



JSR 


PC.SOFINIT 


lOO INITIALIZE OH CONTROLLER 




BCS 


201 


iBR IF INIT UAS OK 




JSR 


PC.FATCHK 


iXNC ANO CHECK FOR rlOAE THAN 25 


ERRORS 


MOV 


R0.R1 


iCONTENTS OF TSSR REGISTER 




ERRDf 


ERRNO.SFIEKK.SFIMSG 


jFATAL ERROR TSSR WAS NOT OK 








TRAP 


CIERDf 






.WORD 


271 






.WORO 


SMERR 






.WORD 


SFIMSG 



NOV 



•T?6PACKET,R4 



i SUBROUTINE NEEDS PACKET AOORESS 



WRITE CHARACTERISTICS COMMAND (HALL TO WRTCHR) 



JSR 


PC.WRTCHR 


BCS 


261 


JSR 


PC.FMCHK 


MOV 


RO.Rl 


ERRHRO 


ERRNOtWRTMSG, SFIMSG 



I ISSUE WRITE CHARACTERISTICS 

jBR. IF COMMAND ISSUED (X 

i INC AND CHECK FOR MORE THAN 25 ERRORS 

iSAVE CONTENTS OF TSSR 

* WRITE CHARACTERISTIC 



26 »l 



CKLQQP 



iUOUP IF SELECTED 



FAILED 
TRAP 
.WORD 
,WORO 

WORD 



CIERHRD 
272 

WRTMSG 
SFIMSG 



TRAP C*CU»l 



9i^ u M K R^EkBi tND f -UNC * 5 



CIS 
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S£Q 184 



7091 
7092 
7093 
7094 
7095 
7096 
7097 
7098 
7099 
7100 
7101 
710? 
7106 



7107 

7108 
7109 
7110 
7111 
7112 
7113 
7114 
7115 
7116 
7117 
7118 
7119 
7120 
7124 



7125 

7126 
712 7 
7128 
7129 
7130 
7131 
7132 
7133 
7134 
715-i 
7136 
7137 
7138 
7139 
7140 
714 1 

7142 
714J 



037632 
037636 
037640 
037644 
03 7650 
03765? 
037656 
03 76S6 
037660 
037662 
037664 
037666 
037666 



03773* 
037744 
037 750 
037750 
037752 
037 756 
03 7 762 
037766 
057772 



004737 
105413 
016501 
012702 
010004 
004737 

104456 
000421 
047414 
011710 

104406 



010444 

000000 
000200 

020116 



}+** 6 it************************************************************ 

» ISSUE REWIND COMMANO TO SELECTED TAPE DRIVE 

i 

,*++++«*+***+**+*+*+++*+ ♦*#*#*#*********#***♦*♦••**•*••*»********** 

l CALL TAPE REWINO COMMANO 

j BR. IF NO PROBLEM 

iGF.T TSSR 

iSET UP EXPECTED TSSR 

iPACKET ADDRESS SET UP 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

iREWlND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.UORD 
jLOOP IF SELECTED 

TRAP 



JSR 


PC, REWINO 


BCS 


301 


hOV 


TSSRCR5J.R1 


nov 


#SSR,R2 


MOV 


R0,R4 


JSR 


PC.FATCHK 



30* 



ERRHRD ERRNO, T?6RWN,PKTSSR 



CKLOOP 



CIERHRD 
273 
T26RUN 
PKTSSR 



CICLPl 









,READ 


MESSAGE BUFFER EXTENOED STATUS 


REGISTER 7ER0 (XSTO) 




037670 


013701 


045756 




MOV 


T266FR*6,R1 


iPICK UP XSTO 




037674 


010102 






MOV 


R1.R2 


j SET UP EXPECTED 




0376 76 


052702 


00OO02 




BIS 


♦6IT1.R2 


iSET BOT BIT IN EXPECTED 




037 702 


020102 






CMP 


R1.R2 


iDOES EXP - REC'D 




037704 


001406 






BEQ 


40$ 


iBR. IF EQUAL CCX) 




037706 


004737 


020116 




JSR 


PC.FATCHK 


lINC ANO CHECK FOR MORE THAN 25 


ERRORS 


037712 








ERRHRD 


ERRNO, T26B0T,EXPREC 


iTAPE NOT AT BOT AFTER REWINO 




037712 


104456 










TRAP 


C«ERHRD 


037714 


00O422 










.WOPD 


274 


037716 


04 7125 










.WORD 


T2660T 


037 720 


016360 










.WORO 


EXPREC 


037722 






40$; 


CKLOOP 




lLOOP IF SELECTED 




037722 


104406 










TRAP 


CfCLPl 


03 7/24 


012703 


000400 




nuv 


#256. .R3 


I RECORD SI/E 




037730 


013737 


003072 046062 


, WRITE 


MOV 
OATA.CVC 


FREE.T26RB 
•1.ACK.SW6 COMMANO 


iSTARTING WRITE BUFFER ADDRESS 





012737 
012704 

010300 
0O4737 
010337 
010465 
0O4757 
016501 



15OO05 
046060 



020410 
046066 

17 7776 
017134 

000000 



046060 



6^*1 



MOV 


#150005, T26PK3 


MOV 


#T26PK3<R4 


MOV 


R3.R0 


JSR 


PC.FILLMEM 


MOV 


R3.T26SZ 


MOV 


R4. TS0BCR5) 


JSR 


PC, WAlTf 


MOV 


TSSRCR5>,«i 



iWRITE DATA.CVC-l.ACK.SWB COWANO 
I SET UP R4 WITH PACKET ADORESS 

iSET PATTERN IN CORRECT REGISTER 

iFILL MEMORY WITH RECORD SIZE 

i SET UP RECORD SIZE IN PACKET 

j ISSUE COMMAND 

jUAH fOR SSR TO SET 

lUET TSSR CONTENTS 
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SEU 185 



7144 
7145 
7146 
7147 
7151 
7152 
7155 
7154 



7155 

7156 

715/ 
7158 
7159 

7160 
7161 
716? 
7163 
7164 
7165 
7166 
7167 
7168 
7169 
7170 
7171 
717? 
7173 
7177 



7178 

71 /9 
7160 
7181 
718? 
7183 
7184 
7185 
7186 
718 7 
7185 
7189 
7190 
7191 
7195 



03 7 776 
040002 
040004 
040006 



040012 
04001? 
040014 
040016 
040020 
040022 
040022 
040024 
C40026 
04003? 
O40034 
O40O34 
040036 



040036 
040042 
040O44 
O40050 
040054 
040056 
040O62 
O40O62 
040064 
040066 
040070 
04007? 
04 00 7 i? 



0400/4 
040100 
040102 
040106 
040110 
O40112 
O40116 
040116 
O40120 
040122 



012702 000200 

020102 

001406 

004737 020116 



104457 
000423 
005011 
011710 

104406 

005723 

022703 000414 

001346 

104406 



0O4737 
103413 
016501 
012702 
010004 
004737 

104456 
000424 

047414 
011710 

104406 



013701 
010102 
052 702 
020102 
001406 
004737 

104456. 
000425 
047125 



MOV 
CMP 
BEQ 
JSR 



♦SSR.R? 
R1.R2 
751 
PC.FATCHK 



l SET UP EXPECTE 
I ARE THEY EQUAL 



ERR50FT ERRNC,WRTERR,PKTSSR 



|BR, IF OK 

l INC ANO CHECK FOR MORE THAN 25 ERRORS 

iSOFT ERROR GENERATED BECAUSE THE 

jWRITE COMMAND IS NOT BEING CHECKED 

jHERE. IT WAS CHECKED IN LEAH2 

iTSSR INCORRECT AFTER WRITE DATA 



751s 

80li 
1201: 



CKLOOP 

TST 
CMP 
ONE 
CKLOOP 



(RS>» 

*26«,,R3 

651 



TRAP 
.WORD 
.WORD 
WORD 

lLOOP IF SELECTED 

TRAP 

I BUMP RECORD 5I7E 

lENO OF RECORD YET 

)BR, IF MORE RECORDS TO WRITE. 

lLOOP IF SELECTED 

TRAP 



CIERSOTT 
2 75 

WRTERR 
PKT55R 

CICLP1 



C$CLP1 



010444 

OOOOOO 
000200 

020116 



ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



i CALL TAPE REWINO COMMANO 

i BR, IF NO PROBLEM 

iGET TSSR 

iSET UP EXPECTED TSSR 

I PACKET AD0RES5 SET UP 

lINC ANO CHECK FOR MORE 

jREWINO NOT ACCEPTED 



JSR 


PC, REWIND 


BCS 


1301 


MOV 


TSSRCR5),M1 


MOV 


#SSR,R2 


MOV 


R0.R4 


JSR 


PC,FATCHK 


ERRHRD 


ERRN0.T26NWN.PKTBSR 



THAN 25 ERRORS 



130»: 



CKLOOP 



j LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



CIERHRD 

276 

T26RWN 

PKTSSR 

CICLP1 



,READ MESSAGE BUFFER 

l 



EXTENDED STATUS REGISTER ZERO (XSTO) 



045756 



0O0OO2 



020116 



MOV 


T26BFR»6 ( R1 


MOV 


Rl.R? 


HIS 


♦B I T 1 . R? 


CMP 


R1.R2 


BEQ 


1401 


JSR 


PC.FATCHK 


ERRHRD 


ERRNO,T26BOT,EXPREC 



iPICK UP XSTO 

l SET UP EXPECTEO 

i SET BOT BIT IN EXPECTED 

i DOES EXP • REC D 

l BR, V EQUAL (OK) 

i INC ANO CHECK FOR MORE T^AN 25 ERRORS 

,TAPE NOT AT BOT AFTER RtUihD 

TRAP CtEHHRI" 

. WORD ? 7 7 
.WORD TJbDOr 



C7TKHA TK 55 FRT ENO KUNC 05 


TES **: REREADS 




040124 


016360 




7196 040126 






040126 


104406 




7197 040130 


012 737 


000400 


71^8 040136 


000420 




7194 






7200 






7201 






7202 






7205 






7204 






7205 






7206 






7207 040140 


012703 


00OO01 


7208 040144 


004 737 


010144 


7209 040150 


103413 




7210 040152 


01f501 


OOOOOO 


7211 O40l5>6 


C12/02 


000200 


7212 040162 


010004 




7213 040164 


0O4 73 7 


020116 


7217 040170 






040170 


104456 




040172 


000426 




040174 


046527 




O40176 


016360 




7218 040200 






7219 O402O0 


015/03 


046112 


7220 040204 


013737 


003072 


7221 






7222 






7223 






72.M 






7225 






7226 






722/ 






7228 040212 


012737 


151401 


7229 040220 


012/04 


046060 


7230 O40224 


010337 


046066 


7231 040230 


010465 


177776 


7232 O40234 


004/37 


017134 


7235 040240 


016501 


OOOOOO 


7234 040244 


012/02 


000200 


7235 040250 


020102 




7236 040252 


001406 




723 7 O40254 


004737 


020X16 


7241 040260 






040260 


104456 




040262 


0004 r": 7 




04 0264 


04 7 750 




040266 


011710 




7242 O402 70 






0402 70 


104406 




724 3 0402 72 


013/02 


0030/2 


''244 O402 76 


010304 




7245 040300 


162 704 


000400 


7246 040304 


C60204 




724 7 040306 


021403 





LI '5 
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140$ i 



046112 



CKLOOP 

MOV 
BR 



<?;.'56. .T26RSZ 
1501 



I LOOP IF SELECTED 

j START RECORD SIZE 
I SKIP SAPCE THIS TIME 





SEU 186 


.WORD 


EXPREC 


TRAP 


C$CLP1 



i*******#*******+***************t*******************************+*t 
I 

I ISSUE SPACE RECORDS COMMAS - VALUE IN R3 SETS NUMBER Of" RECORDS 
iBIT 15 SETS DIRECTION - O-EORWARD 1 'REVERSE 

i 

| ****************************************************************** 



14511 



MOV 


♦ 1, R3 


JSR 


PC, SPACE 


BCS 


1501 


MOV 


TSSRCR5),R1 


MOV 


♦SSR.R2 


MOV 


R0.R4 


JSR 


PC.FATCHK 



ERRHRD ERRNO , T26SC , EXPREC 



150$ 



i SPACE ONE RECORD PARAMETER 

i CALL SPACE ROUTINE 

,BR, IF NO PROBLEM UITH SPACE COMMAND 

iGET TSSR 

I SET UP EXPECTED TSSR 

jPACKET ADORESS SET UP 

i INC ANO CHECK TOR MORE THAN 25 ERRORS 

iPOSITION (SPACE RECORDS) FAILED 

TRAP C$ERHRD 

.WORD 

.WORD 

.WORD 



278 

T26SC 

EXPREC 



046062 



MOV T26RSZ,R3 

MOV EREE.T26RB 



i RECORD SIZE 

l STARTING READ BUFFER ADDRESS 

*************************** 



046060 



1 *♦*♦< 

i 

jREREAD DATA, ACK.CVC-1, SUB COMMAND 

)*****(>****** ****************************************************** 

165$? 



1/01: 



173$: 



MOV 


#151401, T26PK3 


I REREAD DATA, ACK.CVC-1. SUB COMMAND 


MOV 


♦T26PK3.R4 


jSET UP R4 WITH PACKET ADOMLSS 


MOV 


R3.T26SZ 


iSET UP RECORO 5X2E IN PACKET 


MOV 


R4.TSDBCR5) 


1 ISSUE COMMAND 


JSR 


PC, WAT IF 


■WAIT FOR SSR TO SET 


MOV 


TSSRCR5J.R1 


iGET TSSR CONTENTS 


MOV 


#SSR,R2 


iSET UP EXPECTED 


CMP 


R1.R2 


} ARE THEY EQUAL 


BEu 


i/0» 


iBR. IF OK 


JSR 


PC.FATCHK 


1 INC ANO CHECK F'OR MORF THAN 25 ERRORS 


ERRhUD 


ERRN0.T26W0C.PKTSSR 


l TSSR INCORRECT AFTER REREAD DATA 

TRAP CtKHHRO 
.WORD 2/4 
.WORD T26WDC 
.UORD PKTSSR 


CKLOOP 




jLOOP IF SELECTED 

TRAP CICLP1 


MOV 


FRFE.R2 jCURRENl BUFFER ADDRESS TO R2 


MOV 


R3,R4 


I CURRENT RECORD SI'E 


SUB 


♦2*6. ,R4 


j FIRST LOCATION IN BUFFER 


ADD 


R2.R4 


iSET UP POINTER 


CMP 


CR4) # R3 


iCHCCK OATA READ <R5-DATA ALSO) 













F1S 


C7TKGA TK-25 FRT END TUNC $3 
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-APR-84 
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T£ST 2: REREADS 










7248 040310 


001410 






BEQ 


180$ 


7^49 040312 


011401 






MOV 


CR4),R1 


7250 040314 


010302 






MOV 


R3.R2 


7251 040316 


004737 


020116 




JSR 


PC.FATCHK 


7255 040322 








ERRMRD 


ERRN0.T26DTA.EXPREC 


040322 


104456 










040324 


000430 










040326 


047172 










040330 


016360 










7256 040332 






180$ j 


CKLOOP 




040332 


104406 










7257 040354 


005724 






TST 


CR4)* 


7258 040336 


160204 






5UU 


R2.R4 


725} 040340 


020403 






CMP 


R4.R3 


7260 040342 


001 360 






BNE 


1731 


7261 040344 


005723 






rsr 


(PS)* 


7262 040346 


010337 


046112 




MOV 


R3.T26RSZ 


7263 040352 


02270? 


000410 




CMP 


*264. ,R3 


7264 040356 


001270 






BNE 


145$ 


7265 040360 






iw$j 


CKLOOP 




040360 


104406 










7266 040362 








EN0BU8 




040362 












040362 


104403 










7267 040364 


023 727 


002170 


000031 


C-iP 


FATH.G,*25. 


726^ 040372 


002402 






BLT 


999$ 


7269 04037 4 


004737 


020170 




JSR 


PC.CKDROP 


7270 040400 






Will 







SEQ 187 



» BR, IF ALL 
iRECO DATA 
lEXPECTED DATA 
l INC ANO CHECK 
jOATA READ NOT 



IS WELL 



FOR MORE THAN 25 ERRORS 

- WRITTEN 

TRAP C$ERMRD 
. WORD 280 
.WORD T260TA 

.word exprec 

l LOOP IF SELECTED 

TRAP C$CLP1 

iBUMP TO NEXT LOCATION 
i CORRECT RECORDS SIZE VALUE 
lENO Of RECORD 
iBR, IF NOT AT 



OF RECORD 



YET 
ENO 

jBUMP RECORD SIZE 
I STORE RECORD SIZE 
I ENO OT RECORD VET 
iBR. IF" MORE RECORDS TO WRITE 
iLOOP TE SELECTED 

TRAP 
END SUBTEST >>>>>> 
I 10056: 

TRAP 
iIS ERROR COUNT AT 25 
iBR, I> LESS THAN 25 
jTRY TO DROP THE UNIT 



!>>»> >>>>>*>» 



CICI.P1 

c$Esue 



CZTKGA TK-yS FRT END TUNC 05 
TEST 2; REREADS 


7272 








72/5 








7274 








7275 








727ft 








727/ 








72 /a 








7274 








7280 








7281 








7282 








7285 








7284 








72.85 








7286 








7287 








7288 








7289 








7290 








7291 








7292 








7293 








7294 








7295 








7296 








7297 








7298 








7299 








7500 








7501 








7502 








7505 








7504 








7305 


O4040O 
04040O 








O4O40O 


104402 




7506 


040402 


OC4757 


050650 


750 7 


040406 


005057 


046106 


7 508 


040412 


0O47J7 


050742 


7509 


040416 


004737 


051004 


7510 








7311 








7512 








7515 








7514 








7515 








7516 








7317 


040422 


004 737 


016660 


7518 


040426 


10540 7 




7519 


040430 


004757 


020116 


7525 


0404 34 


010001 




7524 


0404 56 








0404 56 


104455 






040440 


000451 






040442 


00 3 S 50 






04044 4 


01167b 




7525 


040446 
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ShU 188 



TEST 2, SUBTEST 9 

VERIFIES THAT THE REREAD NEXT COMMAND WITH OPP-l 
(READ FORWARD, SPACE REVERSE) ANO SWB-0 OPERATES 
PROPERLY. THE TAPE IS FIRST REWOUNO ANO THEN WRITTEN 
WITH A SERIES Of" TEST RECORDS VARYING IN LENGTH ANO 
DATA CONTENTj THE FIRST FOUR BY^ES OF EACH RECORD 
CONTAIN ITS RECORD NUMBER (INDICATING POSITION ON 
TAPE). THE TAPE IS THEN REWOUND AGAIN. FOR EACH 
TEST RECORD, THF. FOLLOWING SEQUENCE IS EXECUTED, 

1. THE REREAD NEXT COMMANO IS ISSUED 
ANO THE RESULTS CHECKED 

2, A READ FORWARD COMMANO IS THEN ISSUED ANO THE 
DATA IS CHECKED TO VERIFY THAT THE TAPE WAS 
POSITIONED PROPERLY AFTER fHE REREAD NEXT 
COMMANO (E.G. THE TAPE SHOULD HAVE BEEN LEFT 
POSITIONED AT THE START Of THE TEST RECORD). THM 
READ FORWARD COMMANO LEAVES THE TAPE POSITIONED 
PROPERLY AT THE START Of THE NEXT TEST RECORD, 

THE BYTE COUNT ON EACH REREAD NEXT COMMANO IS SET 
TO THE LENGTH Of /HE EXPECTED RECORD, SO NO 
EXCEPTIONAL CONDITIONS SHOULD OCCUR. 



J - 



BGNSUO 



JSR 
CLR 
JSR 
JSR 



PC.T26REST 
T26CNT 
PC. T26R T2 
PC.T26RT3 



I >>>>>>>>>>> BtGJN SUBTEST >>>>>>>*>*•»> 

T2.9: 

TRAP ClQSUB 
{SET COMMANO PACKET 
jCLTAR TAPE RECORD COUNTER 
iSET UP OTHER C(**1AN0 PACKET 
I SET UP OTHER COMMANO PACKET 



j+* + 44^4^ + + ** + . + + + ** + + + *****+*«*** + ***********»**********«***««*«*** 

i ISSUE CONTROLLER "SOFT" INITIALIZE CARRY BIT CLEAR If ERROR 
I 

j DO INITIALIZE ON CONTROLLER 

iBR IF INIT WA5 OK 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 

iCONTLNTS Of TSSR REGISTER 

I FATAL ERROR TSSR WAS NOT OK 

TRAP Cli.HlH 

.WORD 281 
.UORD Sf UHR 

,WURD SF1MSG 
20$} 



JSR 


PC.'ioriNii 


BCS 


20$ 


JSR 


PC.f'ATCHK 


MOV 


R0.R1 


ERRDF 


ERRNO,SFIERR,SFIMSG 



CZTKGA TK 25 FRT END FUNC $3 
TEST 2: REREADS 



HIT) 
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SEQ 189 



7326 
7327 
7328 

7329 
7330 
7331 
7332 
7333 
7334 
7335 
7336 
7337 
7341 
7342 



7343 

7344 

7345 
7346 
734 7 
7348 
7349 
7350 
7351 
735? 
7353 
7354 
7355 
7356 
'360 



7361 

7362 
7363 
7364 
7365 
7366 
7367 
7368 
7 369 
73/0 
7371 
7372 
7373 
73/4 
7370 



040446 012704 045730 



MOV 



*T26PACKET,R4 



1 SUBROUTINE NEEDS PACKET ADDRESS 



040452 
040456 
040460 
040464 
040466 
040466 
O4O470 
040472 
040474 
0404 76 
040476 



00473/ 010342 

10340/ 

004/37 020116 

010001 

104456 
000432 
004754 
011676 

104406 



040500 
040504 
040506 
040512 
040516 
040520 
040524 
040524 
040526 
040530 
O40532 
040534 
040554 



0O4737 
103413 
016501 
012702 
010004 
0O4737 

104456 
0O0433 
04 7414 
011710 

104406 



010444 

OOOOOO 
000200 

020116 



040536 
040542 
040544 
040550 
040552 
040554 
040560 
040560 
040562 
040564 



013701 
010102 
052 702 
020102 
001406 
004737 

104456 
000434 
047125 



045756 
000002 



020116 



JSR 


PC.WRTCHR 


BCS 


261 


JSR 


PC.FATCHK 


MOV 


R0.R1 


ERRHRD 


ERRNO.WRTMSG.SFIMSG 



I 

jWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

» 

1****************************************************************** 

j ISSUE WRITE CHARACTERISTICS 

iBR, IE COMMAND ISSUED OK 

l INC AND CHECK FOR MORE THAN 25 ERRORS 

j SAVE CONTENTS Of TSSR 

I WRITE CHARACTERISTIC FAILED 

TRAP CIERHRD 

. WORD 282 
.WORD WRTMbG 
.WORD SFIMSG 
26$: CKLOOP jLOOP IF SELECTED 

TRAP CICLP1 

l*****************************«**************«******* ************** 

J 

i ISSUE REWINO COMMANO TO SELECTED TAPE DRIVE 

I 

j ***.************************* + ********* ****************+** 4 * ******* 

j CALL TAPE REWIND COMMANO 

iBR, IF NO PROBLEM 

iGET TSSR 

i SET UP EXPECTED 1SSR 

j PACKET ADDRESS SET UP 

j INC AND CHECK FOR MORE THAN 25 ERRORS 

jREWINO NOT ACCEPTED 

TRAP CIERHRD 
.WORD 283 
.WORD T26RWN 
.WORD PKTSSR 
30$: CKLOOP jl.OOP IF SELECTED 

TRAP ClCLPl 



JSR 


PC. REWINO 


BCS 


301 


MOV 


TSSR(R5),R1 


MOV 


*SSR,R2 


MOV 


R0.R4 


JSR 


PC.FATCHK 



ERRHRD ERRNO, T26RWN.PKTSSR 



j****************************************************************** 

I 

jREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
i 

j **.**.**************** + ********************************************* 

jPICK UP XSTO 

iSET UP EXPECTED 

iSF.T BOT BIT IN EXPECTED 

iDOES EXP - REC'D 

iBR, IF EQUAL (UK) 

»INC AND CHECK FQR MORE THAN 25 ERRORS 

I TAPE NOT AT 8QT AFTER REWIND 

TRAP CIERHRD 

.WORD 284 
.WORD T26BUT 



MOV 


T26BFH*6,R1 


H^V 


R1.R2 


BIS 


♦6IT1.R2 


CMP 


R1.R2 


BEQ 


40$ 


JSR 


PC.FATCHK 



ERRHRD ERRNG,T26B0T»EXPREC 



CZTKGA TK 25 FRT END FUNC 03 
TEST 2: REREADS 
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SEQ 190 





040566 


016360 




7379 


040570 








040570 


104406 




7580 


040572 


012703 


000400 


7361 


040576 


013737 


003072 046062 


7382 








7383 








7384 








73H5 








7386 








738/ 








7388 








7389 


040604 


012737 


140005 046060 


7390 


040612 


012704 


046060 


73S1 


040616 






7392 


040616 


010357 


046066 


7393 


040622 


013777 


046106 142242 


7394 


040630 


062737 


OOOOOl 046106 


7395 


040636 


010465 


177776 


7396 


04C*42 


00473/ 


01/134 


7397 


O40646 


016501 


OOOOOO 


7398 


040652 


012 702 


000200 


7399 


040656 


020102 




7400 


O40660 


001406 




7401 


040662 


004737 


020116 


740b 








7406 








740 7 








7408 


040666 








040666 


104457 






040670 


0004 35 






040672 


005011 






040674 


011710 




7409 


040676 








0406 76 


104406 




74 5 


040700 


005 723 




7411 


040/02 


022/05 


000414 


7412 


040706 


001401 




7413 


040710 


000742 




7414 


040/12 






74 IS 


040712 


005037 


046106 


7416 








7417 








7418 








7419 








7420 








7421 








7422 








7423 


040/16 


004/57 


010444 


7424 


040 /c'? 


103411 




7425 


040724 


016^01 


OOOOOO 


7426 


040730 


010004 




742/ 


040/32 


004 737 


020116 


7431 


040/56 








040/36 


104456 






040/40 


0004 36 






040742 


04/414 





401: 



CKl.OOP 

MOV 
MOV 



0256, ,R3 
FRFF , T26RR 



. WORD 
jLUOP IF SELECTED 

TRAP 
jRECORD SIZE 
I STARTING WRITE BUFFER ADDRESS 



EXPRFC 
CICLPl 



, ******** *****************♦**************+***♦*♦**♦*♦♦**♦*** ****** * 

i WRITE DATA.CVC-l.ACK COMMANO 

i 

)************************* ',«********** + *********************** + **** 



65J 



MOV 


#140005, T26PK3 


MOV 


OT26PK3.R4 


MOV 


R3.T26SZ 


MOV 


T26CNT.8FREE 


ADD 


•1.T26CNT 


MOV 


R4.TSDBCR5) 


JS3 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


«SSR,R2 


CMP 


R1.R2 


BEQ 


75$ 


JSR 


PC.FATCHK 



75$ 



ERRSOFT ERRNO.WRTERR.PKTSSR 



CKl.OOP 



1ST 


CR3)f 


CMP 


0268. ,R3 


BEQ 


120? 


BH 


65$ 



120$ 



CLR 



T26CNT 



jWRITE DATA.CVC-l.ACK COMMAND 
iSET UP R4 WITH PACKET ADDRESS 

iSET UP RECORD SIZE IN PACKET 

iMOVE TAPE RECORD NUMBER TO BUFFER 

1NUM8ER READY FOR NEXT RECORD 

I ISSUE COMMAND 

jWAIT FOR SSR TO SET 

lOF.T TSSR CONTENTS 

I SET UP EXPECTED 

j ARE THEY EQUAL 

I BR, IF OK 

l INC AND CHECK FOR MORE THAN 25 ERRORS 

i SOFT ERROR GENERATED BECAUSE THE 

jWRITE COMMAS IS NOT BEING CHECKED 

jHtRE. IT WAS CHECKED IN LEAH2 

I TSSR INCORRECT AFTER REREAD DATA 

TRAP C$ERSOFT 

■WORD 285 
.WORD WR1F.RR 
.WORD PKTSSR 

iLOOP IF SELECTED 

TRAP CICl.Pl 

I BUMP THE RECORD SIZE 

{MAXIMUM SIZE YET 

l BR. IF AT END OF WRITE SEQUENCE 

jWRITE MORE RECORDS 

j SET RECORD COUNTER BACK TO ZERO 



,****************************************************************** 

i 

j ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

i 

!*******************************************************+********** 

I CALL TAPE REWINO COMMANO 

)BR, IE NO PROBLEM 

j GET TSSR 

j PACKET ADDRESS SET UP 

, INC AND CHECK FOR MORE THAN 25 ERRORS 

iREUINO NOT ACCEPTEO 

TRAP CURHRD 

. WORD 286 
.WORD T26RWN 



JSR 


PC .REWIND 


BCS 


130$ 


MOV 


TSSR(RS),R1 


MOV 


R0.R4 


JSR 


PC.FATCHK 



ERRHRD ERRNO , T26RWN . PK T SSR 



C/TKliA TK 25 FRT END FUNC $3 
TEST 2; REREADS 



7432 

/433 

74 34 
74 5b 
7456 
7437 
7458 
74 59 
7440 
7441 
7442 
7443 
7444 
7445 
7449 



7450 

7451 

745? 
7453 
7454 
7455 

7456 
745 7 
7458 
7459 
7460 
7461 
746? 
7463 
7464 
7465 
7466 
7467 
7471 



74 7? 

74/3 

74 74 
74 75 
74 /6 
74/7 
74 78 
74/9 
74 80 
7481 
748? 



040 744 
040746 
040746 



011710 
104406 



040750 
040754 
040756 
040762 
040764 
040766 
0407 72 
0407/2 
040774 
040776 
0410O0 
04100? 
041002 
0410O4 
041012 



015701 
010102 
052702 
020102 
001406 
0O4737 

104456 
000437 
047125 
016360 

104406 
012737 
000430 



041014 
041020 
041024 
041026 
041032 
041056 
C41O40 
04104A 

041044 
041046 
041050 
041052 
041054 
041054 
04 1 056 
041062 



012703 
004737 
103415 
016501 
012702 
010004 
004 V 3 7 

104456 
000440 
04652/ 
011/10 

104406 
013703 
013737 



045756 
000002 

020116 



00000 i 
010144 

OOO000 
000200 

020116 



046112 
00307? 



J15 
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SEQ 191 



000400 046112 



130$: 



CKLOOP 



jLOOP IF SELECTED 



.WORD 
TRAP 



PKTSSR 
C$CLPl 



• *++******+*+*+******************************************** ******* * 

i READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

} 

;****************************************************************** 

iPICK UP XSTO 
»SET UP EXPECTED 
I SET BOT BIT IN EXPECTED 
»DOES EXP - REC'D 
jBR, IF EQUAL (OK) 

j INC ANO CHECK FOR MORE THAN 25 ERRORS 
I TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
{LOOP IF SELECTED 

TRAP 
l STARTING RECORD SIZE 
j SKIP OVER THE. SAPCE THIS TIME 



MOV 


T26BFRf6,Rl 


MOV 


Rl, R2 


BIS 


«BIU,R2 


CMP 


R1.R2 


BEQ 


135$ 


JSR 


PC.FATCHK 



ERRHRD ERRNO , T26B0T , EXPREC 



135*: CKLOOP 

MOV 
BR 



0256..T26RSZ 
140$ 



CIERHRD 
287 
T26B0T 
EXPREC 

C$CLPl 



;*********** ****************************************************** 

i 

; ISSUE SPACE RECORDS COMMAND - VALUE IN R3 -FTS NUMBER OF RECORDS 

jBIT 15 SETS DIRECTION - 0-FORWARD 1-RFVi ;iSE 

; 

j ************** *************** J, . + ** + + + ****************4**********.** 



132$: 



MOV 


4O0OO01.R3 


JSR 


PC. SPACE 


ocs 


140$ 


MOV 


TSSRCR5),R1 


MOV 


OSSR.R? 


MOV 


R0 f R4 


JSR 


PC.FATCHK 



ERRHRD ERRNO, T26SC , PKTSSR 



140$,' 



046062 150$; 



CKLOOP 

MOV 
MOV 



T26RSZ.R5 
FREE, T26RB 



;SET IP SPACE COMMANO (1 FORWARD) 

I CALL SPACE ROUTINE 

jBR, IF NO TROUBLE 

» GET rSSR 

jSET UP EXPECTED TSSR 

; PACKET ADDRESS SET UP 

j INC ANO CHECK FOR MORE THAN 25 ERRORS 

j SPACE (FORWARD) FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

ll.DOP IF SELECTED 

TRAP 

j RECORD SIZE 

j STARTING READ RUf FER ADDRESS 



C$ERHRD 
288 

T26SC 
PKTSSR 

C$CLP1 



041070 012/37 161401 



I****************************************************************** 

l 

jREREAD DATA,CVC-1,ACK, OPP COMMAND 

» 

j************************************************************** **** 

046000 MOV 0161401, T26P>'3 jREREAD DATA, CVC- 1 , ACK , OPP COMMAND 



fi 



;tkga TK-25 trt end func 43 

[bT 2: REREADS 
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SfcU I9ii 



7483 
7434 
7485 

7486 
7487 
7488 
7489 
7490 
7491 
7495 



7496 

7497 
7498 
7499 
7500 
7501 
7505 



7506 

750/ 
7508 
7509 
7510 
7511 
751.-? 
7513 
7514 



7515 
7516 

n\\f 

7518 



041076 
041102 
041106 
041112 
041116 
041122 
041126 
041130 
041132 
041136 
041136 
041140 
041142 
041144 
041146 
04.1146 
041150 
041154 
041160 
041162 
041164 
041170 
041170 
041172 
041174 
0411/6 
041200 
041200 
041202 
041210 
041212 
041216 
041222 
041224 
041230 
041230 
041230 
041230 
041232 
041240 
041242 
041246 



012704 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
C04737 

104456 
000441 
046335 
011710 

104406 
01/701 
013702 
020102 
001406 
004737 

104456 
00044 c? 
046116 
016360 

104406 
06273/ 
005/23 
010337 
022703 
001402 
000137 



104403 
023727 
002402 
004737 



046060 
046066 
177776 

017134 
000000 
000200 



020116 



141716 
046106 



020116 



165$} 



170$: 



000001 046106 

046112 
000412 

041014 

002170 000031 
020170 



200$: 



MOV 
MOV 
MOV 
J5R 
MOV 
MOV 
CMP 
BEQ 
JSR 
ERRHRD 



CKLOOP 

MOV 
MOV 
CMP 
BEQ 
JSR 
ERRHRD 



190$: CKLOOP 



999$: 



ENDSUB 



CMP 
BLT 
JSR 



*T26PK3,R4 
R3.T26SZ 

R4.TSDBCR5) 

pcwaitf 

TSSR(R5) # R1 

0S5R.R2 

R1.R2 

170$ 

PC FATCHK 

ERRN0,T26RRF,PKTSSR 



HFREE,R1 

T26CNT.R2 

R1.R2 

190$ 

PC. FATCHK 

ERRNO , T26WNG , EXPREC 



ADD 


•1.T26CNT 


TS1 


(R3)* 


MOV 


R3, 126RSZ 


CMP 


$266, ,R3 


BEQ 


2001 


JMP 


132$ 



FAULG.025 

999$ 

PC»CKDROP 



25 ERRORS 
DATA 

C$ERHRD 

289 

T26RRF 

PKTG5R 

CiCLPl 
BUFFER 



j SET UP R4 WITH PACKET ADDRESS 

I SET UP RECORD SIZE IN PACKET 

i ISSUE COMMAND 

lUAIT . C 0H SSR TO SET 

j GET TSSR CONTENTS 

j SET UP EXPECTED 

j ARE THEY EQUAL 

i BR, IF OK 

j INC ANO CHECK FOR MORE THAN 

j TSSR INCORRECT AFTER REREAD 

TRAP 
.WORD 
.WORD 
.UORO 

jLOOP IF SELECTED 

TRAP 
jFIRST WORD FROM READ 

jSET UP EXPECTED 

j IS TAPE POSITION CORRECT 

jKEEP GOING POSITION OK 

; INC ANO CHECK FOR MORE THAN 25 ERRORS 

{TAPE POSITION INCORRECT 

TRAP ClfcHHRD 
.WORD 290 
.WORD T26UNG 
.WORD EXPREC 

TRAP C$CLP1 
jBIUP TAPE RECORD COUNTER 
j NEXT RECORD SIZE 
j STORE RECORD SIZE 
* AT MAX SIZE YET 
;BR, IF AT ENO OF THE SUBTEST 
{KEEP GOING MORE RECORDS 

;>>>>>>>>>>>> eno SUBTEST >i>^»»>i^ 

L 10057: 

TRAP C$ESUB 

;IS ERROR COUNT AT 25 
jBR, 1^ LESS THAN 25 

;TRY TO DROP THE UNIT 



CZTKGA TK ,>S KRT END FUNC 43 
TEST ?x REREADS 
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SEU 193 



7520 
7521 
7522 
7523 
7524 
7525 
7526 
7527 
7528 
7529 
7550 
7531 
7532 
7533 
7534 
7535 



7536 
7537 
7538 
7539 
7540 
7541 
7542 
754 3 
7544 
7545 
7546 
754 7 
7548 
7549 
7553 
7554 



7555 
7556 
755 / 
7558 
7559 
7560 
7561 
7562 
7563 
75t>4 
7565 
7566 
7567 
7571 
75/2 



041246 
041246 
041246 
041250 
041254 
041260 
041264 



0412/0 
041274 
041276 
041302 
041304 
041304 
041306 
041310 
041312 
041314 



041320 

041324 
041326 
041332 

041334 
041334 
041336 
041340 
041542 



104402 
004737 
005037 
004 737 
004737 



050650 
046106 
050742 
051004 



004737 016660 

103407 

004737 020116 

01OO01 

104455 
00O443 
003550 
011676 



041314 012704 045730 



004737 010342 
10540 7 

004/3/ 020116 
010001 

104456 
000444 
J04 /S4 
011676 



TEST 2, SUBTEST 10 

VERIFIES THAT THE REREAD NEXT COMMANO WITH OPP-1 
AND SUB-1 OPERATES PROPERLY. THE TEST SEQUENCE IS 
THE SAME THAT IS USED IN SUBTEST 3, BUT IT IS 
VERIFIED THAT DATA STORED BY THE COMMAND CONTAINS 
SWAPPED BYTES, 



BGNSU6 



JSR 
CLR 
JSR 
JSR 



PC.T26REST 
T26CNT 
PC.T26RT2 
PC.T26RT3 



; >>>v>>>>>>>> BEGIN SUBTEST >>>>>>>>>.>> 

T2.10: 

TRAP CJBSUB 
tSET COMMANO PACKET 
jCLEAR TAPE RECORD COUNTER 
{SET UP OTHER COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 



* *********************** 4^ A**************************/ * + *** + *** + + + ♦ 

i ISSUE CONTROLLER "SOFT" INITIALIZE • CARRY BIT CLEAR IF ERROR 

t 

j + *± + +.4. + + * + + + *. + +.±*4.**. + 4. + + + *. + +,t + mm**-m + + ** + + * * + *** + * + * + ******** 

{DO INITIALIZE ON CONTROLLER 

;BR IF INIT WAS OK 

j INC ANO CHECK FOR MORE THAN 25 ERRORS 

{CONTENTS OF TSSR REGISTER 

{FATAL ERROR TSSR WAS NOT OK 

TRAP C*£RDF 
.WORD 291 
.WORD SFItRH 
.WORD SFIMSG 



JSR 


PC.SOFINIT 


RCS 


20$ 


JSR 


PC.FATCHK 


MOV 


R0.R1 


ERRDF 


ERRNO.SFIERR.SFIMSG 



20$; 



MOV 



0T26PACKET.R4 



; SUBROUTINE NEEDS PACKET ADDRESS 



{WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



JSR PC.WRTCHR 

BCS 26$ 

JSR PC.FATCHK 

MOV RO.Rl 

ERRHRD LRRNO , WR TMSG . SF 1MSG 



{ISSUE WRITE CHARACTERISTICS 

iBR, IF COMMAND ISSUED OK 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 

iSAVE CONTENTS OF TSSR 

{WRITE CHARACTERISTIC FAILED 

TRAP CURHHll 
.WORD 29. » 
.WORD WRTMSii 
.WORD SFIMSG 



CZTKGA TK -25 HRT END FUNC *3 
TEST ?: WtREAOS 



Ml 5 
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SEQ 194 



7573 

7574 
7575 
7576 
7577 
75/8 
7574 
75H0 
7581 
758? 
75(55 
7584 
7585 
7586 
7590 



75<U 

75'.)? 
75**3 
7544 
7595 
75% 
7597 
7598 
7599 
7600 
7601 
760? 
7603 
7604 
7608 



7«%09 

7610 
7611 
761? 
7b 15 
7614 
7615 
7616 
7617 
"'618 
7619 
76 JO 
76.; 1 
76?? 
76? 3 
7624 



041544 
041344 



104406 



26$: 



CKLOOP 



j LOOP IF SELECTED 



041546 
04135? 
041356 
04136? 
041364 
041366 
04137? 
04137? 
041374 
041376 
041400 
04140? 
04140? 



004/3/ 
016501 

01270? 
103407 
010004 
004 737 

1044S6 
000445 
047414 
011710 

104406 



041404 
041410 
04141? 
041416 
041 >?0 
04! >? 
04l.i'6 
C414?6 
041430 
0414 3? 
041434 
041436 
04143b 
041440 
041444 



013701 
01010? 
05? /O? 
0?010? 
001406 
004737 

104456 
000446 
04 71?5 
016360 

104406 
01? 705 
013737 



04145? 

041460 
041464 
041464 
0414/0 
0414 76 



01275/ 
Ol?704 

01035/ 

062737 



010444 
000000 
000?00 



020116 



045756 
000002 

0?0116 



000400 
00307? 



140005 
046060 

0460bh 
046 10t) 
000001 



046060 



14 15/4 
046106 



JSR 


PC, REWIND 


MOV 


TSSR(R5),R1 


MOV 


OSSR.R? 


BCS 


30$ 


MOV 


R0.R4 


JSR 


PC.FATCHK 


ERRHRD 


ERRN0.T26RWN.PKTSSR 



TRAP CJCLP1 

) ****************************************************************** 

! ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

■ 

I ********+**+******************+**********++*********************** 

i CALL TAPE REWIND COMMAND 

i GET TS5R 

I SET UP EXPECTED TSSR 

} BR, IF NO PROBLEM 

j PACKET ADDRESS SET UP 

jINC AND CHECK FOR MOK., THAN 25 ERRORS 

j REWIND NOT ACCEPTED 

TRAP CtERHRD 

.WORD 293 
. WORD T?6RWN 
.WORD PKTSSR 
30$: CKLOOP jl.OOP IF SELECTED 

TRAP CiCLPl 

{*******************************************************+********** 

READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

| ** + * + + ** + **************************-•.****************************** 

iPICK UP XSTO 
;SET UP EXPECTED 
j SET BOT BIT IN EXPECTED 
5 DOES EXP - RfC'D 
j BR, IF EQUAL (OK) 

i INC AND CHFCK TOR MORE THAN 25 ERRORS 
{TAPE NOT AT BOT AFTER REWIND 

TRAP 
. WORO 
.WORD 
.WORD 
40$: CKLOOP jl.OOP IF SELECTED 

TRAP 
i RECORD SIZE 
j STARTING WRITE BUFFER ADDRESS 



MOV 


T?6BFR*6,R1 


MOV 


R1.R2 


BIS 


•6IT1.R2 


CMP 


R1.R2 


BEQ 


40$ 


JSR 


PC.FATCHK 



ERRHRD ERRN0,T?6B0T,EXPREC 



CKLOOP 

MOV 
MOV 



«?5b. t R3 

FREE,T?6RB 



CSERHRO 

294 

T?6B0T 
EXPREC 

CSCLPl 



;****************************************************************.** 

J 

{WRITE OATA.CVC-X.ACK COMMAND 

i 

I **** **^* ********************** ****^«********* ********* ************ 



65$: 



MOV #140005, I?6PK3 

MOV OT26PK3.R4 

MUV H5.T26SZ 

MOV T?6CNT,ORtt 

ADO <M,T26CNT 



j WRITE DATA,CVC-) ,ACK COMMAND 
j SET UP R4 WITH PACKET ADDRESS 

;SET UP RECORD SI7E IN PACKET 
;M0VE TAPE RECORD NUMBER TO BUFFER 
j NUMBER READY FOR NEXT RECORD 



CZTKGA TK-25 FRT END FUNC 43 
TEST 2: REREADS 
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SEU 19b 



7625 
7626 
7627 
7628 
7629 
7630 
7631 
7635 
7636 
7637 
7636 



7639 

7640 
7641 
7642 
764 3 
7644 
764b 
7646 
764 7 
7648 
764^ 
7650 
76b 1 
7632 
76b3 
7634 
7633 
7636 
7637 
7661 



7662 

7663 

7664 
7663 
7666 
7667 
7668 
766 1 ) 
7670 
7b71 
767? 
76/3 
7674 
7673 
7679 



041304 
041310 
041314 
041520 
041524 
041526 
041530 



041334 
041534 
041536 
041540 
041542 
041544 
041344 
041546 
041530 
041554 
041556 
041560 
041560 



i .64 
0-i -b/O 
041572 
041576 
041600 
041604 
041604 
041606 
041610 
041612 
041614 
041614 



04 7.616 
04i622 
041624 
041630 
041632 
041634 
041640 
041640 



010465 
004737 
016501 
012702 
020102 
001406 
004737 



104457 
00044 7 
005011 
011710 

104406 
003723 

022703 
001401 
000742 



004 737 
103411 
016501 
010004 
004737 

104456 
000450 
047414 
011/10 

104406 



013/01 
010102 
052702 
020102 
001406 
004737 

104456 



177776 
017134 
000000 
000200 



020116 



000414 



005037 046106 



010444 

000000 



020116 



045756 
000002 



020116 



MOV R4.T8DRCR5) 

JSR PC.WAITF 

MflV TSSR(R5).R1 

MUV 4SSR.R2 

CMP R1.R2 

DEU fbt 

JSR PC,FATCHK 



ERRSOFT ERRNO.WRTERR, PKTSSR 



75$ 



CKl.OOP 



TST 


(R3)» 


CMP 


#268. ,R3 


BEQ 


120$ 


BR 


65$ 



120$ 



CLR 



l ISSUE COMMAND 

I WAIT FOR SSR TO SET 

j GET TSSR CONTENTS 

{SET UP EXPECTED 

i ARE THEY EQUAL 

j BR, IF" OK 

j INC AND CHECK FOR MORE THAN 25 ERRORS 

{SOFT ERROR GENERATED BECAUSE THE 

j WRITE COMMAND is NOT BEI^G CHECKED 

{HERE, IT WAS CHECKED IN L FAH2 

I TSSR INCORRECT AFTER WRITE DATA 

TRAP CIERSOKT 
. WORD 295 
.WORD WRTERR 
.WORD PKTSSR 

{LOOP IF SELECTED 

TRAP C$CLP1 

j BUMP THE RECORD SIZE 

{MAXIMUM SIZE YET 

{BR, IF AT END OF WRITE SEQUENCE 

{WRITE MORE RECORDS 

sSET RECORD COUNTER HACK TO ZERO 



T26CNT 

**+*****+************************+******************************** 

ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

**************** ************************** ************************ 

i CALL TAPE REWIND COMMAND 

{ BR, IF NO PROBLEM 

{GET TSSR 

{PACKET ADDRESS SET UP 

jINC AND CHECK FOR MORE THAN 25 ERRORS 

{REWIND NOT MCCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 
{LOOP IF SELECTED 

TRAP 



JSR 


PC. REWIND 


BCS 


130$ 


MOV 


TSSR(R5),R1 


MOV 


R0.R4 


JSR 


PC.F'ATCHK 



130$ 



ERRHRD ERRNO , T26RWN , PKTSSR 



CKLUO' J 



CiERHRD 
296 

T26RWN 
PKTSSR 



C$CLP1 



;*****************************************. ************ ************ 

IrEAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
I 

j*****************************************^A******^**************** 

{PICK UP XSTO 

jSE' P v*> EXPECTED 

jSE BOT BIT IN EXPECTED 

jDOl S EXP - REC'D 

{BR, IF EQUAL (OK) 

{INC AND CHECK FOR MORE THAN 2b ERRORS 

;TAFE NOT AT BOT AFTER REWIND 

TRAP C$ERHRD 



MOV 


I26BFH*6,R1 


MOV 


R1.R2 


BIS 


0BIT1.R2 


CMP 


R1.R2 


BFU 


135$ 


JSR 


PC.FATCHK 



ERRHRD ERRNO, T26B0T.EXPREC 



CZIKGA 1 
TEST 2: 


fK 25 FRT END HJNC *3 


REREADS 






041642 


000451 






041644 


04 7125 






041646 


016360 




7680 


041650 








04165O 


104406 




7681 


041652 


012757 


000400 


7682 


041660 


000420 




7683 








7664 








768!> 








7686 








766 7 








7688 








7689 








7690 








7691 


041662 


012703 


000001 


769? 


041666 


004737 


010144 


7693 


041672 


105413 




7694 


041674 


016501 


000000 


7695 


041700 


012702 


000200 


7696 


041704 


010004 




7697 


041706 


0O4757 


020116 


7701 


041712 








041712 


\04456 






041714 


00O452 






041716 


046527 






041720 


011710 




770? 


041722 








041722 


104406 




7703 


041724 


013703 


046112 


7 704 

7705 
7 7C6 


041730 


015737 


003072 








7707 








7 706 








7 709 








v no 








77U 








771? 


041756 


012737 


161401 


7713 


041744 


012704 


046060 


7714 


041750 


010537 


046066 


7 715 


041754 


010465 


177776 


7716 


041760 


0O4737 


017154 


7717 


041764 


016501 


000000 


7718 


041770 


012702 


000200 


7719 


041774 


020102 




7720 


041776 


001406 




7721 


042000 


004737 


020116 


7 725 


042OO4 








0420O4 


104456 






042006 


000453 






042010 


046335 






042012 


011710 




7 726 


042014 








042014 


104406 




7727 


042016 


017701 


14 1050 


77*tt 042022 


Q137Q2 


0461U6 



MACRO M1200 
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20-APR-84 08il3 PAGE 106-3 



1351} CKLOOP 



046112 



MOV #256.,T26RSZ 

BR 1401 





SEQ 196 


♦ WORD 


297 


.WORD 


T26B0T 


.WORD 


EXPREC 


lLOOP IF SELECTED 




TRAP 


CICLP1 


iSTART RECORD SIZE 




ISKIP OVER SPACE 





ISSUE SPACE RECORDS COMMAND VALUE IN R3 SETS NUMBER OF RECORDS 
BIT 15 SETS DIRECTION - 0-FORWARD 1 -REVERSE 



1361 j 



MOV 


♦000001, R3 


JSR 


PC, SPACE 


BCS 


1401 


MOV 


TSSR(R5),R1 


MOV 


♦S5R.R2 


MOV 


R0,R4 


JSR 


PC.FATCH< 


ERRHRD 


ERRN0,T26SC, PKTSSR 



I SET UP SPACE COMMAND CI FORWARD) 

iCALL SPACE ROUTINE 

iBR. IF NO TROUBLE 

iGET TSSR 

iSET UP EXPECTED TSSR 

iPACKET AOORESS SET UP 

j INC AK) CHECK FOR MORE 

I SPACE (FORWARD) FAILED 



THAN 25 ERRORS 



1401s CKLOOP 



046062 1501: 



MOV 
MOV 



T26RSZ.R3 
FREE.T26RB 



TRAP 
.WORD 
.WORD 
WORD 

lLOOP IF SELECTED 

TRAP 

iRECORO SIZE 

iSTARTING READ BUFFER AOORESS 



CtERHRD 
2^8 

T26SC 
PKTSSR 

ClCLPi 



REREAD DATA,CVC-1,ACK, OPP COMMAND 



046060 



1651 1 



MOV 


#161401, T26PK3 


jRERE 


MOV 


♦T26PK3.R4 




jSET 


MOV 


R5.T26SZ 




iSET 


MOV 


R4.TS08CR5) 




jISSU 


JSR 


PC.WAITF 




jWAIT 


MOV 


TSSR(R5),R1 




IGET 


MOV 


♦SSR.R2 




iSET 


CrW 


R1.R2 




lARE 


BEO 


1701 




iBR. 


JSR 


PC.FATC^ 




iINC 


ERRHRD 


ERRN0.T26RRF 


, PKTSSR 


iTSSR 



1701 J CKi OUR 

MOV 
MQV 



SFRf.E.Rl 
T56CNI *R2 



DATA,CVC-l,ACK, OPP COMMAND 
UP R4 WITH PACKET AOORESS 
UP RECORO SIZE IN PACKET 
€ COMMA*© 

FOR SSR TO SET 
TSSR CONTENTS 
UP EXPECTED 
T*t EQUAL 
IF (X 

ANC CHECK FOR MORE THAN 
1 INCORRECT AFTER REREAD 

TRAP 
.WORD 
.WORD 
.WORD 
l LOOP IF SELECTED 

TRAP 
I FIRST WORD FROM READ 
iSET UP EXPECTED 



25 ERRORS 
DATA 

CIERHRO 

299 

T26RRF 

PKTSSR 

CICLP1 

BUFFER 













CI 6 


PM'wifcfcM tN0 K ^ c « 3 


MACAO M1200 20 


-APR 34 


08tl3 PAGE 106-4 


7/29 042026 


020102 






CMP 


R1.R2 


7/30 042030 


001406 






BEQ 


190$ 


7 Ml 042032 


004757 


020116 




JSR 


PC.FATCHK 


7735 042036 








ERRHRD 


ERRN0,T26WNG,EXPftEC 


042036 


104456 










042040 


0OO454 










04204? 


046116 










042044 


016360 










7736 042046 






190*: 


CKl.OOP 




042046 


104406 










7 737 042050 


062/37 


OOOOOl 


046106 


ADO 


♦1.T26CNT 


7 75fl 042056 


0O5723 






TST 


<R3)» 


7739 042060 


010337 


046112 




MOV 


R3.T26RSZ 


7 740 042064 


022703 


0OO412 




CMP 


♦266,, R3 


7741 042070 


001402 






BEQ 


2201 


7/42 042072 


0OO137 


041662 




JrtP 


136$ 


7743 042076 






220*} 






7744 0420 76 








ENOSUB 




0420/6 












042076 


104403 










7/45 042100 


023727 


002170 


000031 


CMP 


FATFLG,#25, 


7/46 042106 


002402 






BLT 


999$ 


7/47 042110 


004737 


020170 




JSR 


PC.CKDRQP 


7746 042114 






999$ j 







SEQ 197 



, IS TAPE POSITION CORRECT 




,KEEP GOING POSITION OK 




lINC ANO CHECK FOR MORE THAN 25 


ERRORS 


iTAPE POSITION INCORRECT 




TRAP 


C$ERHPD 


.UORO 


300 


.WORD 


T26WNG 


.WORD- 


EXPREC 


TRAP 


C*CLP1 


,BUMP TAPE RECORD COUNTER 





,NF.XT RECORD SIZE 

I5T0RE RECORD SIZE 

lAT MAX SIZE YET 

»BR. IF AT END OF T.'C SUBTEST 

i KEEP GO.TNG MORE RECORDS 

I >>>>>>>>>> i > ENO SUBTEST >>•»>>>>>>>>> 

L 10060 : 

TRAP ClfcSUB 
i IS ERROR COUNT AT 25 
j BR, IF LESS THAN 25 
iTRY TO DROP THE UNIT 



C/TKGA TK 25 >RT END KUNC 03 
TEST ?: REREADS 

7/50 
7751 



•>C 



7 7' 
7753 
7/54 
7755 
7 75ti 
7 75 7 
7 /5a 
7 75** 
7760 
7 761 
7 76? 
7 763 
7 764 
7765 



7 766 
7767 
7768 
7 769 
7770 
7771 
7 7 7? 
7773 
7774 
7 7 75 
7776 
7777 
7 7 78 
7 70? 
7783 



7 784 
7 785 
7 786 
7 78 7 
7 788 
7 789 
7790 
7 791 
7 79? 
7 793 
7 794 
7 795 
7796 
7800 
7801 



780? 



042114 
042114 
042114 
042116 
04212? 
042126 



04213? 
042136 
042140 
042144 
042146 
042146 
O42150 
04215? 
042154 
042156 



042162 

042166 
042170 
042174 
042176 
042176 
042200 
04220? 
042204 
042206 



004737 
103407 
0O4737 
010001 

104455 
0OO455 
003550 
011676 



0O4737 
103407 
0O4737 
010001 

104456 
0OO456 
0O4 754 

011676 



MACRO M1200 20 -APR -84 OB: 13 



TEST 2, SUBTEST 11 



D'1.6 

PAGE 107 



SECJ 198 



VERIFIES THAT A REREAD NEXT COMMAND READING A 
RECORD LONGER THAN THE SPECIFIED BTit CUvMT CAUSES 
TAPE STATUS ALERT TERMINATION WITH THE RECORD LENGTH 
I ONG (RLL) BIT SET. RESULTS ARE VERIFIED FOR BOTH 
STATES OF OPP (0 AND 1). 



104402 

004737 050650 

004737 05074? 

004737 051004 



BGNSUB 



JSR 
JSR 

ISR 



PC, T26REST 

PC.T26RT2 

PC,T26RT5 



j >>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T2.ll: 

TR/P C*BSUB 
i SET COMMANO PACKET 
t SET UP OTHER COMMAND PACKFT 
I SET UP OTHER COMMAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



016660 
020116 



?0*i 



JSR 


PC.SOriNIT 


jDO INITIALIZE ON CONTROLLER 




BCS 


201 


iBR IF IMTT WAS OK 




JSR 


PCFATCHK 


iINC AND CHECK ^QR MOPE THAN 25 


ERRORS 


MOV 


R0.R1 


iCONTENTS Of TSSR REGISTER 




ERRDF 


ERRNQ.SFIERR.SFIMSG 


iFATAL ERROR TSSR WAS NOT OK 








TRAP 


CIERDF 






. MORD 


301 






.WORD 


SFIERR 






.WORD 


SFIMSG 



04215b 012704 045730 



MOV 



#T26PACKET,n4 



jSUBROUTINE NEEDS PACKET ADDRESS 



WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



01034? 
020116 



JSR PC.WRTCHR 

BCS 26* 

JSR PC.FATCHX 

MOV R0.R1 

ERRHRD ERRNO.WRTMSG, SFIMSG 



261 j CKLOOP 



jISSUE WRITE CHARACTERISTICS 

j BR. IF COMMAND ISSUED OK 

j INC ANO CHECK FOR MORE THAh 25 ERRORS 

l SAVE CONTENTS OF TSSR 

iWRITE CHARACTERISTIC 



iLOOP IF SELECTED 



FAILED 




TRAP 


CIERHRO 


.WORD 


30? 


.WORD 


WRTMSL. 


.WORD 


SFIMSG 



CZTKGA TK-25 FRT END FUNC 03 
TEST 2: REREADS 



t'L6 
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SEQ 199 



7803 
7804 

7805 

7H06 

780 7 

7808 

7809 
7610 
7811 
7812 
7813 
7814 
781b 
7819 



78?0 

7821 
78?? 
7825 

78?4 
7825 
7826 
782 7 
7828 
7829 
7830 
7851 
785? 
7853 
7837 



7858 

7859 
7840 
7841 
7842 
784 5 
7844 
784 5 
7846 
784 7 
7848 
7849 
7850 
7651 
7 AS? 
78*13 
7854 



042206 104406 



042210 
042214 
042220 
042224 
042226 
042230 
042234 
042234 
042236 
042240 
042242 
042244 
042244 



0O4737 
016501 
012702 
103407 
010004 
0O4737 

104456 

000457 
047414 

011710 

104406 



042246 
042252 
042254 
042260 
042?6? 
042264 
0422 70 
0422 70 
0422 7? 
042274 
0422 76 
042300 
042300 
04230? 
042306 



013701 
01010? 
052/02 
0?0102 
001406 
004737 

104456 
000460 
047125 
016360 

10440o 
012/03 
013737 



010444 
OOOOOO 
000200 



020116 



045756 
0COO02 

020116 



001000 
003072 



046062 



042314 

042322 
04?3?6 
04?326 
042 332 
0423 56 
042342 



012737 
012704 

010337 
010465 
004/3/ 
016501 



i4ooo:i 

046060 

04606b 
1//7/6 

017134 

OOOOOO 



046060 



TRAP CtCLPl 

I****************************************************************** 

j ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

J 

I ********** + ********************.i *******#*♦*♦********************** 

I CALL TAPE REUINO COMMAS 

jGET TSSR 

i SET UP EXPECTED TSSR 

»BR, IF NO PROBLEM 

I PACKET ADORESS SET UP 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

l REWIND NOT ACCEPTED 

TRAP CiERHRD 

, WORD 303 
.WORD T26RWN 
.WORD PKTSSR 
301: CKLOOP ,L00P IF SELECTED 

TRAP C*CLP1 



JSR 


PC. REWIND 


MOV 


TSSRCR5),R1 


MOV 


♦SSR.R2 


BCS 


301 


MOV 


R0.R4 


JSR 


PCFATCHK 



ERRHRD ERRNO . T26RWN , PK T5SR 



I****** ************************************************************ 

i 

{READ MESSAGE BUFFER EXTENOED STATUS REGISTER ZERO CXSTO) 

l 

, **************** ************************************************** 

iPICK UP XSTO 

I SET UP EXPECTED 

»SET BOT BIT IN EXPECTED 

iDOES EXP - REC'D 

I BR, IF EQUAL (OK) 

♦INC ANO CHECK FOR MORE THAN 25 ERRORS 

{TAPE NOT AT BOT AFTER REWINO 

TRAP CtERHRD 

. WORD 304 
.WORD T26B0T 
WORD EXPREC 
40$: CKLOOP |L00P IF SELECTED 

TRAP f ^LPl 

{RECORD SIZE 
{STARTING WRITE BUFFER ADDRESS 



MOV 


T26BFR*6.R1 


MOV 


R1.R2 


BIS 


#6IT1 # R2 


CMP 


R1.R2 


BEQ 


401 


JSR 


PC.FATCHK 



ERRHRD ERRNO , T26B0T .EXPREC 



CKLOOP 

MOV 
MOV 



«512. ,R3 
FREE,T?6RB 



I*************** *************************************************** 

l 

I WRITE DATA,CVC-1,ACK COMMANO 

( 

( ***************************** A*******;*.******** ************** *** *** 



bhi x 



MOV #140005, T26PK3 

MOV ♦T26PK3.R4 

MOV R3.T26SZ 

MOV R4,TSDB(R5") 

JSR PC.UATH 

MOV TSSR(R5)»Ri 



iWRITE DATA,CVC-1,ACK COMMANO 
iSET UP R4 WITH PACKET ADDRESS 

{SET UP RECORD SIZE IN PACKET 
I ISSUE COMMANO 
{WAIT FOR SSR TO SET 
iGET TSSR CONTENTS 



C/TKGA TK ?5 FRT END F'UNC *3 
TEST a; REREADS 



Fib 
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SEQ 200 



7855 
7656 

7857 
7858 
786? 
7863 
7864 
7865 



7866 

786/ 
7868 
786^ 
78/0 
78 a 
787? 
78/3 
73 74 
7875 
78/6 
78 7 7 
78/8 
78 79 
7883 



7884 

7885 

7886 
788/ 
7888 
7889 
7890 
7891 
789? 
789 5 
7894 
7895 
7896 
789 7 
7901 



790? 

7903 
7904 
7**05 



042346 
04235? 
042354 
042356 



042362 
04236? 
042364 
042366 
042370 
0423 72 
042372 



012/02 
020102 
001406 
004 737 



104457 
000461 
005011 
Oil 710 

104406 



042374 
O424O0 
042404 
042410 
042412 
042414 
042420 
O4?420 
042422 
CW2424 
04?426 
0424 30 
042430 



004 73/ 

016501 
012702 
103407 
010004 
004737 

104456 
00046? 
047414 
011710 

104406 



0424 3? 
042436 
042440 
042444 
C 12446 
042450 
042454 
042454 
042456 
042460 
04246? 
042464 
042464 
042466 
0424 70 



on 701 

010102 
05? /02 
02O102 
OO1406 
004/37 

104456 
000463 
04/ 125 
016 360 

104406 
005 303 
013737 



000200 
020116 



010444 
000000 
000200 



020116 



045/56 
000002 

020116 



MOV 


0SSR.R2 


CMP 


R1.R2 


BEU 


75» 


JSR 


PC.FATCHK 



75$ 



ERRSOFT ERRNO.WRTERR, PKTSSR 



CKLOOP 



i SET UP EXPECTED 

» ARE THEY EQUAL 

»BR, IF OK 

l INC ANO CHECK FOR MORE THAN 25 ERRORS 

I SOFT ERROR GENERATED BECAUSE THE 

i WRITE COMMANO IS NOT BEING CHECKED 

,HERE, IT WAS CHECKED IN LEAH2 

,TSSR INCORRECT AFTER WRITE DATA 

TRAP CIERSOFT 

. WORD 305 
.WORD WRTERR 
.WORD PKTSSR 
j LOOP IF SELECTED 

TRAP CICLP1 



l 

l ISSUE REWINO COMMANO TO SELECTED TAPE DRIVE 

J 

I CALL TAPE REWIND COMMANO 

iGET TSSR 

,SET UP EXPEClcD TSSR 

j BR. IF NO PROBLEM 

, PACKET ADDRESS SET UP 

, INC ANO CHECK FOR MORE THAN 25 ERROR' 

j REWINO NOT ACCEPTED 



JSR 


PC, REWIND 


MOV 


TSSRCH5).R1 


MOV 


4SSR.R2 


BCS 


130$ 


MOV 


R0.R4 


JSR 


PC.FATCHK 



ERRHRD ERRNO. T26RWN, PKTSSR 



130$ 



CKLOOP 



j LOOP IF SELECTED 



TRAP 


CIERHRD 


.WORD 


306 


.WORD 


T26RWN 


.WORD 


PKTSSR 



TRAP 



CICLPl 



0030/2 046062 



,RFAD MESSAGE BUTFER EXTENDED STATUS REGISTER ZERO (XSTO) 

J 

iPICK UP XSTO 

,SET UP EXPECTED 

iSET BOT BIT IN EXPECTED 

,DOES EXP - REC'O 

iBR. IF EQUAL (OK) 

I INC ANO CHt-CK KOR MORE THAN 25 ERRORS 

l TAPE NOT AT BOT AFTER REWINO 

TRAP CIERHRD 

. WORD 30 7 
.WORD T26BUT 

WORD EXPRFC 
140*2 CKIOOP | LOOP IF SFLFCTED 

TRAP CICLPl 

iSIT RECORD SIZE TO 511. 
, STARTING READ BUFFER ADDRESS 



MOV 


T26BFR»6.R1 


MOV 


R1.R2 


BIS 


MIT1.R2 


CMP 


Rl .R2 


BEQ 


1401 


JSR 


PC.EATCHK 


ERRHRD 


fcRRN0,T26B0T ( EXPREC 



CKl OOP 

01 C 
MOV 



R3 

FREE.T26RB 



* 



ZTKGA TK 25 FRT END FUNC $3 
EST 2: REREADS 



7906 
7907 
7908 
7909 
7910 
7911 
7912 
79 IS 
7914 
791b 
7916 
7917 
7918 
7919 

7920 

7921 
7925 



7926 

792 / 
7928 
7929 
7950 
7951 
793? 
7955 
7954 
7955 
7956 
7957 
7958 
7959 
7943 



7944 
7945 
7946 
794/ 
7948 
7949 
7950 
7951 
79 V 
7953 
7954 
7955 
7956 
745/ 
7958 
V959 



04*4 76 

042504 
042510 
042514 
042520 
042524 
042550 
042534 
042556 
042540 
042544 
042544 
042546 
042550 
042552 
042554 
042554 



012 f 37 
012704 

010337 
010465 
004/37 
016501 
012702 
020102 
001406 
004737 

104456 
000464 
0504 72 
011710 

104406 



042556 
042562 
042564 
0425/0 
0425/2 
042574 
042600 
042600 
042602 
042604 
042606 
042610 
042610 
042614 



015701 
010102 
052 702 
020102 
001406 
0O4737 

104456 
0O0465 

050240 
016360 

012705 
015737 



042622 
042630 

0426 54 
042640 
04 2644 
042650 



012/5/ 
012 704 
010357 
010465 
004/5/ 
016501 



045756 
OlOOOO 

020116 



141401 
046060 
046066 
1//776 
01 7 134 
000000 



MACRO M1200 20 -APR -84 08{13 



G16 

PAGE 107-3 



SEQ 201 



161401 046060 

046060 

046066 

177776 

01/154 

000000 



020116 



0O0/7.' 

00307* 046062 



, ♦****************** + **** + **** + «*4«* + *4 J * + * * ************************ 

I REREAD DATA.CVC-l.ACK.OPP-1 COMMANO 

I 

j ************************************************* + + * + ******* + ** + ** 

jREREAD DATA.CVC-l.ACK.OPP-1 COMMAND 
1651: MOV ♦T26PK3.R4 »SET UP R4 WITH PACKET ADDRESS 

,SET UP RECORD SIZE IN PACKET 

iI c SUE COMMAND 

,WAIT FOR SSR TO SET 

tGET TSSR CONTENTS 

iSET UP EXPECTED 

,ARE THCY EQUAL 

j BR. IF OK 

,INC AND CHECK FOR MORE THAN *5 ERRORS 

j TSSR INCORRECT AFTER REREAD DATA 

TRAP CIERHRD 
.WORD 308 
.WORD T26TRL 
.WORD PKTSSR 
170$: CKLOOP jLOOP If SELECTED 

TRAP CiCLPl 



MOV 


•161401, T26PK3 


MOV 


•T26PK3.R4 


MOV 


R3.T26SZ 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5),R1 


MOV 


•SSR'SC»BIT2,R2 


CMP 


R1,R2 


BEQ 


1701 


JSR 


PC.FATCHK 



ERRHRD ERRN0»T26TRL t PKTSSR 



J************************************************,***************** 

I 

{READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO') 

I 
,******************»♦**»**»»♦♦***♦+*♦**♦»»♦♦♦»♦*«»*♦**♦*»♦♦**«***** 

I GET MESSAGE BUFFER 

I SET UP EXPECTED 

jSET THE RLL BIT IM EXPECTED 

j ARE THEY EQUAL 

I BR, IF EQUAL (ALL IS WELL ) 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 

j THE RLL BIT WAS NOT SET IN XSTO 

TRAP CIERHRD 
.WORD 309 
.WORD T26L0N 
.WORD EXPREL 



MOV 


T268FR*6,R1 


MOV 


R1.R2 


BIS 


♦6IT12.R2 


CMP 


R1.R2 


BEQ 


laoi 


JSR 


PC.FATCHK 



ERRHRD ERRNO . T26L0N , E XPREC 



1801: 



MOV •511.. R3 

MOV FREE.T26RB 



jSET UP SIZE OF RECORD 

, STARTING READ BUFFER ADDRESS 

«.««*4t********************A*******4****** 



046060 



jREREAD OATA.CVC-l.ACK COMMANO 

i 

jREREAD DATA.CVC-1 .ACK COMMANO 
365*; MOV •T26PK5.R4 i St T UP R4 WITH PACKET ADDRESS 

,SET UP RECORD SIZE IN PACKET 
j ISSl€ COMMANO 
{WAIT FOR SSR TO SET 
iGET TSSR CONTENTS 



MOV 


•141401, T26PK3 


MOV 


•T26PK5.R4 


MOV 


R5,T26SZ 


MOV 


R4, TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 
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SEQ 202 



7960 
7961 

796 3 
7967 



7968 

7969 

79/0 
79/1 
79 /? 
79/3 
79/4 
79 75 
79/6 
79// 
7978 
79/9 
7980 
7981 
7985 



7986 
7987 



7988 
7969 
7990 
7991 



042654 
042660 
0426o2 
042664 
042670 
042670 
042672 
0426 74 
042*^/6 
04? /i>0 
042700 



042702 
042/06 
042710 
042714 
042/16 
O42/20 
042/24 
042/24 
042/26 
042730 
042732 
042/34 
042 734 
042734 
042734 
042736 
042/44 
042/46 
042752 



012702 
02010? 
001406 
004737 

104456 
00O466 
0504 72 
011710 

104406 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
00046/ 
050240 
016360 



104403 
023/2/ 
002402 
004737 



100204 



020116 



MOV *SSR!SC!BIT2,R2 

CMP R1.R2 

3EQ 3701 

J5R PC.KATCHK 

ERRHRD ERRNO, T26TRL , PKTSSR 



3701; CKLOOP 



iSF.T UP EXPECTED 

I ARE-: THEY EQUAL 

jBR, IF OK 

jINC AND CHECK FOR MORE THAN 25 ERRORS 

iTSSR INCORRECT AFTER REREAD DATA 



jLOOP IF SELECTED 



TRAP 


CIERHRD 


.WORD 


310 


.WORD 


T26TRL 


.WORD 


PKTSSR 



TRAP 



CtCLPl 



045756 
010000 



020116 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER 7ER0 CXSTO) 

iGET MESSAGE. BLf FER 

iSET UP EXPECTED 

jSET THE RLL BIT IN EXPECTED 

lAfie THEY EQUAL 

iBR, IF EQUAL (ALL IS WELL) 

j INC ANO CHCCK FOR MORE THfN 25 ERRORS 

tTHG RLL BIT WAS NOT SET IN XSTO 

TRAP CIERHRD 

.WORD 511 
.WORD T26L0N 
.WORD EXFREC 



MOV 


T26BFR»6,R1 


MOV 


R1.R2 


BIS 


♦6IT12.R2 


CMP 


R1.R2 


BF.U 


3801 


JSR 


PC.F ATCHK 



ERRHRD ERRNO , T26L0N ♦ EXPREC 



380$ 



002170 000031 
020170 



999$ 



ENDSUB 



CMP 

BLT 
JSR 



f ATRG,*25, 

999$ 

PC.CKDROP 



(>>>i>>nv^i £ND SUBTEST *>>>>>>>>>>> 

I 10061: 

TRAP C$ESUB 

I IS ERROR COLIN T AT 25 
j BR, IF I ESS THAN ?S 
I TRY TO DROP THE UNIT 



C/TKGA TK 25 IR1 END KUNC 05 
TEST ?.x REREADS 



7995 
7994 
7'*') r . 

7996 
7997 
7998 
7999 
8000 
8001 
800? 
8005 
8004 
BOOS 
8006 
800 7 
8008 
8009 
8010 



8011 
8012 
8015 
8014 
8015 
8016 
8017 
8018 
8019 
8020 

8021 

8022 
8023 

802/ 
8028 



8029 
8050 
8051 
8032 
8033 
8054 

8055 

8056 
805/ 
8058 
8059 
C040 
8041 
8o45 
U046 



04? 752 
042 752 
042752 
042/54 
042/60 
042764 



104402 

004/3/ 050650 

004/3 7 050/42 

004737 051004 



042 //O 
042/74 
042 //6 
04 5002 
043004 
045004 
04 5006 
04 5010 
043012 
045014 



004/5/ 016660 

105407 

004/57 020116 

01O0O1 

104455 
0004 70 

005550 
011676 



043014 012704 045730 



04 5020 004/37 010342 

043024 10540/ 

043026 004/37 020X16 

043052 010001 

04 3054 

045054 104456 

04 50 lt> 0004/1 

043040 004 754 
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SEO 203 



TEST 2, SUBTEST 12 

VERIFIES THAT A REREAD NEXT COMMANO READING A 
RECORD SHORTER THAN THE SPECIFIED BYTE COUNT CAUSES 
TAPt STATUS ALERT TERMINATION WITH TH6 RECORD LENGTH 
SHORT (RLS) BIT SET. IT IS VERIFIED THAT THE. 
RESIDUAL BYTE COUNTER CRBPCR) IN THE MESSAGE DUFFER 
CONTAINS THE PROPER NONZERO VALUE! (E.G., THE 
DIFFERENCE BETWEEN THE ORIGINAL BYTE COUNT AND THE 
ACTUAL RECORD LENGTH). RESULTS ARE VERIFIED FOR BOTH 
STATES OF OPP (0 AND 1). 



BGNSUB 



JSR 
JSR 
JSR 



PC.T26REST 

PC.T26RT2 

PC.T26RT3 



j >>>>>>>> >>>> BEGIN SUBTEST >>>>>>>>>>•> 

T2.12: 

TRAP CfBSUB 

,SET COMMAND PACKET 
I SET UP OTHER COMMANO PACKET 
I SET UP OTHER COMMANO PACKET 



****************************************************************** 

ISSUE CONTROLLER "SUM" INITIALIZE - CARRY BIT CLEAR IF ERROR 

******************************4<***********«******«**************** 

{DO INITIALIZE ON CONTROLLER 

iBR IF INIT WAS OK 

l INC AND CHECK FOR MORE THAN 25 ERRORS 

(CONTENTS OF TSSR REGISTER 

(FATAL ERROR T3SR WAS NOT OX 

TRAP CIERDF 

.WORD 312 
.WORD SFIERR 
.WORD SFIMSG 



JSR 


PC.SOFINIT 


BCS 


20$ 


JSR 


PC.FATCHK 


MOV 


R0,R1 


ERRDF 


ERRNO, SFIERR .SFIMSG 



20$: 



MOV 



*T26PACKET,R4 



I SUBROUTINE NEEDS PACKET ADDRESS 



;****************************************************************** 

J 

iWRITE CHARACTERISTICS COMMANO (CALL TO WRTCHR) 

i 

I***.*********** ************* *+*+*********************************** 



JSR PC, WRTCHR 

BCS 26$ 

JSR PC.FATCHK 

MOV R0.R1 

ERRHRD ERRNO , WR TMSG . SF INGG 



I ISSUE WRITE CHARACTERISTICS 

j BR, IF COMMANO ISSUED OK 

j INC AND CHECK FOR MORE THAN 25 lRRORS 

jSAVE CONTENTS Of TSSR 

jWRITE CHARACTERISTISC FAILED 

TRAP CJf-HHPO 
.WORD 513 
.WORD WRTMSG 



C/TKGA IK i! l > f-RT END FUNC £3 
TEST 2: REREADS 



8047 

8048 
8049 
8050 
8051 
6052 
8053 
8054 
8055 
8056 
8057 
8058 
8059 
8060 
8064 



8065 

8066 
806/ 
0068 
8069 
80/0 
8071 
80 72 
80/3 
80 74 
8075 
HO 76 
8077 
80 78 
8082 



8083 

8084 
8085 
8086 
808 7 
8088 
8089 
8090 
8091 
809^ 
8093 
8094 
8095 
8096 
8097 



043042 
043044 
043044 



043046 
043052 
043056 
043062 
043064 
O43066 
04 30 72 
043072 
0430 74 
04 3076 
043100 
O43102 
043102 



043104 
043110 
043112 
043116 
043120 
043122 
043126 
043126 
O43J30 
043132 
043134 
043136 
043136 
043140 
043144 



043152 
04 3160 
043164 
04 3164 
043170 



011676 
104406 



004737 
016501 
012702 
103407 
010004 
004737 

104456 
000472 
047414 
011710 

104406 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
000473 
047125 

016360 

104406 
012703 
013737 



012737 
012704 

010537 
01Q46S 



010444 
000000 
000200 



020116 



045756 
000002 

020116 



000400 
003072 



140005 

046060 

046066 
177776 



J16 
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SEQ 204 



046062 



046060 



26$ j 



CKLOUP 



lLOOP IF SELECTED 



SF'IMSG 
C$CLP1 



.UORD 

TRAP 
*+******************************************/******* ************** 

ISSUE REWIND COMMAS TO SELECTED TAPE DRIVE 

************************************** *4 ******* + +* + ******* ,+ 4,4.4*4** 

I CALL TAPE REWIND COMMAND 

iGET TSSR 

iSET UP EXPECTED TSSR 

iBR, IF NO PROBLEM 

jPACKET ADDRESS SET UP 

»INC ANO CHECK F(}R MORE THAN 25 ERRORS 

jREWIND NOT ACCEPTED 

TRAP CIERHRD 

.UORD 314 
.WORD T26RWN 
.UOftD PKTSSR 
30*; CKLOOP jLOOP IF SELECTED 

TRAP CSCLP1 



JSR 


PC, REWIND 


MOV 


TSSR(R5),R1 


MOV 


0SSR.R2 


E3CS 


30$ 


MOV 


R0,R4 


JSR 


PC.FATCHK 



ERRHRD ERRNO , T26RWN » PKTSSR 



{READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 
s 

2 ****************************************** ****** ****************** 

jPICK UP XSTO 

{SET UP EXPECTED 

} SET BOT BIT IN EXPECTED 

iDOES EXP - REC'D 

iBR. IF EQUAL (OK) 

j INC ANO CHECK FOR MORE THAN 25 ERRORS 

tTAPE NOT AT BOT AFTER REWINO 

TRAP C1ERHRD 
.WORD 315 
.WORD T26B0T 
.WORD EXPREC 
40$: CKLOOP jl.OOP IF SELECTED 

IRAP C$CLP1 
iRECORD SIZF 
j STARTING WRITE BUFFER ADDRESS 



MOV 


T26BFR*6,Rl 


MOV 


R1.R2 


BIS 


06ITLR2 


CMP 


R1.R2 


BEQ 


40$ 


JSR 


PC,* ATCHK 



ERRHRD ERRNO , Ta6B0T , EXPREC 



CKLOOP 

MOV 
MOV 



#256. ,R3 
FREE.T26RB 



t****************************************************************** 

1 

; WRITE DATA, CVC- LACK COMMAND 

, ************** *****************44i4i«**4jIi*** ************************ 



65$ i 



MOV f 140005, T26PK3 

MOV <;T26PK3.f.4 

MOV R3.T26S? 

MOV R4.TSDBCR5) 



jWRITE DATA.CVC-LACK COMMAND 
jSET UP R4 WITH PACKET ADDRESS 

iSFT UP RECORD SUE IN PACKET 
tISSUE COMMAND 



C7TKGA TK 25 FRT END TUNC 43 
TEST 2; REREADS 



Klb 
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SfcQ 205 



8098 
8099 
810O 
8101 
8102 
8103 
8107 
8108 
8109 
8110 



8111 

8112 

8113 
8114 
8115 
8116 
8117 
811C 
8119 
8120 
8121 
8122 
8123 
8124 
8125 
8129 



8130 

8131 
8132 
8133 
8134 
8135 
8136 
8137 
8138 
8139 
8140 
8141 
8142 
8143 
814 7 



8146 



043174 
043200 
043204 
043210 
043212 
043214 



043220 
043220 
043222 
043224 
043226 
043230 
04 3230 
043232 



043232 
043238 
043242 
043246 
043250 
04 3252 
04 3256 
04 3256 
04 3260 
04 3262 
04 3264 
04 3266 
043266 



04 3270 
04 3274 
0432/6 
04 3302 
043304 
043306 
04 3312 
043312 
043314 
043316 
04 3320 
04 3322 
043322 



004737 017134 

016501 000000 

012702 000200 

020102 

001406 

004737 020116 



10445 7 
0004 74 
005011 
011710 

104406 



00473 7 

016501 
012702 
103407 
0100O4 
004737 

104456 
0004 75 
047414 
011710 

104406 



013701 

010102 
052/02 
020102 
001406 
004737 

104456 
0004 /6 

04 nr. 5 

0163. iO 

104406 



JSR 


PC.WAITF 


MOV 


TSSRCR5),R1 


MOV 


*SSR,R2 


CMP 


R1.R2 


BEG 


75t 


JSR 


PC.FATCHK 



75$: 
120$ 



ERRSOFT ERRNO .WRTERR.PKTSSR 



CKLOOP 



{WAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

I SET UP EXPECTED 

j ARE THEY EQUAL 

i BR, IF OK 

j INC AND CHECK FOR MORE THAN 25 ERRORS 

j SOFT ERROR GENERATED BECAUSE THE 

{WRITE COMMAND IS NOT BEING CHECKED 

j HERE. IT UAS CHECKED IN LEAH2 

j TSSR INCORRECT AFTER WRITE DATA 

TRAP C$ERSOFT 

.WORD 316 

♦WORD WRTERR 

.WORD PKTS5R 
I LOOP IF SELECTED 

TRAP C$CLP1 



010444 
000000 
000200 



020116 



1 issue rewino commano to selected tape drive 

l call tape rewind command 

ilJet tssr 

jset up expected tssr 

i BR. IF NO PROBLEM 

{PACKET ADDRESS SET UP 

j INC ANO CHECK FOR MORE THAN 25 ERRORS 

{REWINO NOT ACCEPTED 

TRAP CIERHRD 
.WORD 317 
.WORD T26RWN 
.WORD PKTSSR 
130$: CKLOOP | LOOP IF SELECTED 

TRAP CSCLP1 



JSR 


PC. REWINO 


MOV 


TSSRCR5),R1 


MOV 


*SSR,R2 


BCS 


130$ 


MOV 


R0.R4 


JSR 


PC.FATCHK 



ERRHRD ERRNO . T26RWN , PKT SSR 



045756 
000002 



020116 



IrFAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
» 

{PICK UP XSTO 

{SET UP EXPECTED 

I SET BOT BIT IN EXPECTED 

{DOES EXP - REC'D 

l BR, IF EQUAL (OK) 

{INC ANO CHECK FOR MORE THAN 25 ERRORS 

{TAPE NOT AT BOT AFTER REWINO 

TRAP CURHHD 

.WORD 318 
.WORD T26B01 
.WORD EXPREC 
135$: CKLOOP ,LOU0 IF SELECTED 

TRAP C5CLP1 



MOV 


T26BFR.6.R1 


MOV 


R1.R2 


BIS 


*em,R2 


CMP 


R1.R2 


BEQ 


135$ 


JSR 


PC.FATCHK 



ERRHRD ERRNO , T26BUT , EXPREC 



C/TKGA TK-25 FRT 
TEST 2 j REREADS 
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SEQ 206 



8149 
8150 
8151 
8152 
8153 
6154 
8155 
8156 
a 15/ 
8158 
8159 
8160 
8161 
8162 
8163 
8164 
8165 
8166 
8167 
8171 



8172 

8173 

8174 
8175 
8176 
8177 
8178 
8179 
8180 
8181 
8182 
8183 
8184 
8185 
8189 



8190 
8191 

8192 
8193 
8194 
8198 



8199 
5200 



043324 
043330 



043356 
043344 
043350 
043354 
043360 
043364 
043370 
043374 
043376 
043400 
043404 
043404 
043406 
04 3410 
04 3412 
04 3414 
043414 



043416 
045422 
04 3424 
04 34 30 
043432 
04 3434 
04 3440 
043440 
043442 
045444 
04 3446 
04 3450 
04 3450 
043454 
043460 
043462 
04 3466 
043466 
04 34 70 
04 34 72 
04 34/4 
0434/6 
04 34 76 
043500 



012703 
013737 



012737 
012704 
01033/ 
010465 
004 737 
016501 
012702 
020102 
001406 
0O4737 

104456 
0004 77 
0504 72 
011710 

104406 



013701 
010102 
052702 
020102 
001406 
0O4737 

104456 
000500 
050322 
016360 

013701 
012/02 

020102 
001405 

104456 
000500 
050404 
016360 

104406 
012/03 



001000 
003072 



161401 
046060 
046066 
177 776 
017134 
000000 
100204 



020116 



045756 
040000 

02011* 



045754 
000400 



046062 



MOV 0512, ,R3 
MOV FREE.T26RB 



iRECORO SIZE 

j STARTING READ BU'FER ADDRESS 



[*+ + * + + **+* + ****************************+***+♦++*+*+*+**++*»>+* ++++ + 

t 

jREREAD NEXT.ACK.CVC-l.OPP-l 

( ************ **** ************************ ♦********«, **************** 



046060 



165$ 



MOV 


0161401, T26PK3 


MOV 


0T26PK3.R4 


MOV 


R3,T26SZ 


MOV 


R4.TSDBCR5") 


J5R 


PC.UAITF 


MOV 


TSSRCR5),R1 


MOV 


*SSR!SC!BIT2,R2 


CMP 


R1.R2 


BEQ 


170$ 


JSR 


PC.FATCHK 



170$ 



ERRHRD ERRNO , T26TRL ,PKTSSR 



CKLOOP 



jREREAD NEXT,ACK,CVC»1,0PP-L 

tSET UP R4 WITH PACKET ADDRESS 

j SET UP RECORD SIZE IN PACKET 

l ISSUE COMMAND 

iWAIT FOG SSR TO SET 

iGET TSSR CONTENTS 

{SET UP EXPECTED 

{ARE THEY EQUAL 

j BR. IF OK 

iINC ANO CHECK FOR MORE THAN 25 ERRORS 

jTSSR INCORRECT AFTER READ DATA 



I LOOP IF SELECTED 



TRAP 
.WORD 

.WORD 
.WORD 

TRAP 



C$ERHRD 
319 

T26TRL 
PKTSSR 

C$CLP1 



************************ *** ************************ A* ************* 

READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

**************************** **********************„****4;*+******* 

{GET MESSAGE BUFFER 
j SET UP EXPECTED 
jSET THE RLS BIT IN EXPECTED 
{ARE THEY EQUAL, 
j BR. IF EQUAL (ALL IS UELL) 
I INC ANO CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T26L0P, EXPREC |THE RLL BIT WAS NOT SET IN XSTO 



180$ 



MOV 


T26BFR*6,R1 


MOV 


R1.R2 


BIS 


0BIT14.R2 


CMP 


Ri.R? 


BEQ 


180$ 


vJSR 


PC.F- ATCHK 



TRAP 


C$ERHRD 


.WORD 


320 


.WORD 


T26L0P 


.WORD 


EXPREC 



MOV 


T26BFR.4.R1 


MOV 


0256. ,R2 


CMP 


R1.R2 


BEQ 


190$ 



ERRHRD ERRNO , T26PBP , EXPREC 



iPICK UP RESIDUAL BYTE COUNTER 
j THIS SHOULD BE THE DIFFERENCE 
;TS THE DIFFERFNCF CORRECT 
j BR, IF CORRECT 
jRBPCR NOT CORRECT 



1901: 



001000 



CKLOOP 
MOV 



#512. »R3 





TRAP 


C$ERHRl) 




.WORD 


*20 




.WORD 


I26PBP 




.WORD 


EXPREC 


4 1 OOP IF SELECTED 








TRA^ 


C*CLPl 


iRECORD SIZE 







'TKGA 



TK-25 FRT 
'j REREADS 



END FUNC 03 
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SEQ 207 



8201 
8202 
8203 
8204 
8205 
8206 
820/ 
8208 
8209 
8210 
8211 
8212 
8213 
8214 
8215 
8216 
8217 
8218 
8222 



8223 

8224 

8225 
8226 
822 1 

8228 
8229 

8230 
8231 
8232 
8233 
8234 
8235 
8236 
8240 



8241 
8242 
8243 
8244 
8243 
8249 



8250 
«25l 



043504 013737 003072 046062 



MOV 



FREE,T26RB 



i STARTING READ BUFFER ADDRESS 



043512 
043520 
043524 
043530 
043534 
043540 
043544 
043550 
043552 
043554 
043560 
043560 
043562 
043564 
043566 
043570 
043570 



043572 
043576 
04 3600 
043604 
043606 
04 3610 
04 3614 
043614 
043616 
04 3620 
043622 
043624 
043624 
04 36 30 
043034 
043636 
043642 
04 3642 
043644 
043646 
04 3650 
043652 
043652 
654 
04^654 



012737 
012704 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000501 
0504 72 
011710 

104406 



013701 
010102 
052702 

020102 
001406 
004737 

104456 
000^02 
050322 
016360 

013701 
012702 
020102 
001405 

104456 

000502 
050404 

016360 

104406 



141401 
046060 
046066 
177776 
017134 
000000 
100204 



020116 



045756 
040000 

020116 



045/54 
000400 



046060 



{REREAD NEXT,ACK,CVOl,0PP-0 

J 

{*****#********* + *** + **** + + + + + + + + + + + + * + + + * + + + + * + + **********.♦****** + 

{REREAD NEXT.ACK.CVC-l.OPP-0 
I SET UP R4 WITH PACKET ADDRESS 
I SET LIP RECORD SI7E IN PACKET 
j ISSUE COMMANO 
;UAIT FOR 5SR TO SET 
jGET TSSR CONTENTS 
jSFT UP EXPECTED 
j ARE THEY EQUAL 
j BR, IF OK 

I INC AND CHECK F*OR MORE THAN 25 ERRORS 
ERRHRD ERRN0 < T26TRL,PKT5SR jTSSR INCORRECT AFTER READ DATA 



MOV 


0141401.T26PK3 


MOV 


*T26PK3,R4 


MOV 


R3.T26SZ 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5).R1 


MOV 


*SSR'SC!BIT2,R2 


CMP 


R1.R2 


BEQ 


270 \ 


JSR 


PC,I AfCHK 



270$: 



CKLOOP 



;LO0P IF SELECTED 



TRAP 


C$ERHRD 


.WORD 


321 


.WORD 


T26TRI 


.WORD 


PKTSSR 



TRAP 



CSCLP1 



iREAD MESSAGE BUFFER EXTENDED STATUS REGJSTi R 2LR0 CXSTO) 

5 

) ******* + * + ********* + + ** + * + ******** **4******* **************** *****4> 

GET h S3 AGE BUFFER 
SET I" EXPECTED 
St J THE RLS BIT IN EXPECTED 
Ahr THEY EQUAL 
BR. ir EQUAL CALL IS WELL) 
INC AND CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRN0,T26LUP,EXPREC j THE RLL BIT WAS NOT SET IN XSTO 



280$ 



MOV 


T26BFR*6,R1 


MOV 


Rl.R? 


BIS 


♦6IT14.R2 


CMP 


R1.R2 


REQ 


280$ 


JSH 


PC.FATCHK 



MOV 


T26BFR>4,R1 


MOV 


0256, ,R2 


CMP 


R1.R2 


BEQ 


2<>0$ 



290$ 



ERRHRD ERRNO , T26PBP , EXPREC 

CKl OOP 
ENDSUB 







TRAP 


CIERHRD 






.WORD 


322 






.WORD 


T26L0P 






.WORD 


EXPREC 


j PICK UP RESIDUAL B 


YTE 


COUNTER 




{THIS SHOULD OE THE 


DIFFERENCE 




{IS THE DIFFERENCE 


CORRECT 




♦ BR, IF CORRECT 








iRBPCR NOT CORRECT 












TRAP 


CJERHRD 






.WORD 


322 






.WORD 


T26PBP 






.WORD 


EXPREC 


{LOOP IF SELECTED 












TRAP 


CSCl PI 



)>>>>>>>>>>>> END SUBTEST ->>>>>>>>>>>> 

L 10062; 



USER DOCUMENTATION 
USER DOCUMENTATION 
USER DOCUMENTATION 
USER DOCUMENTATION 
USER DOCUMENTATION 
USER DOCUMENTATION 
USER DOCUMENTATION 
USER DOCUMENTATION 
USER DOCUMENTATION 
USER DOCUMENTAIION 
USER DOCUMENTATION 
USER DOCUMENTATION 
USER DOCUMENTATION 



USER DOCU1ENTATION 
USER DOCUMENTATION 
USER DOCUMENTATION 
USER DOCUMENTATION 
USER DOCUMENTATION 
USER DOCUMENTATION 
USER DOCUMENTATION 
PROGRAM HEADER 
PROGRAM HEADER 
DEFAULT HARDWARE P-T 
SOFTWARE P- TABLE 
SOFTWARE P TABLE 
GLOBAL EQUATES SECTI 



MEMORY 

MEMORY 

TK- 

TK 

TK 

TK 

TK 2S 

TK 2S 

TK-2S 

SPECIAL 

SPECIAL 



MANAGEMENT 

MANAGEMENT 



25 
25 
25 



GLOBAL 
TSTBLK 



REGISTER 
REGISTER 
REGIS I ^H 

REGISTER 
REGISTER 
i<F(;fSTF r R 
HE'lWili :: 
MACRu:, 
MACROS 



AND 
ANO 
AND 
ANO 
ANO 
ANO 
AN?) 

Mi** ' 

AND 



DE. 
DE. 

P. 

P. 

P. 

P. 

P. 

P. 

P. 

n. 

lL 



DATA SECTION 
- TEST DATA 



GLOBAL ENVIROftiENT S. 
GLOBAL TEXT MESSAGES, 
GLOBAL TEXT MESSAGES. 
GLOBAL ERROR REPORT , 



PRITSSR 
PRITSSR 

PRITSSR 
PRTPKT 
PRIPKT 
PRIBXOR 

PRIXOR 
PRIEQU 
PRIADD 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



TSSR. 

TSSR, 
TSSR. 
THE . 
THE , 
EXPO. 
EXPD. 
BIT . 
MEMO* 



.Ul 
.CI 
.01 
<E1 
,F1 
,G1 
.HI 
,11 
,J1 
.Kl 

.1 1 

.Ml 
.Nl 



,B2 
.C2 

,02 

,E2 
,F2 
,G2 
.H2 
.12 
.J2 
.K2 
.L2 
,M2 
,N2 



B3 
C3 
D3 

E3 

: 3 

G3 
H3 

13 
J3 
KS 

i ' 
M5 
N3 



.B4 
,C4 
.04 
.E4 
.F4 
,G4 
.H4 
.14 
. J4 
.K4 
.14 
.M4 

.N4 



SPACE 


- SPACE RECO. . 


. .B5 


SPACE 


- SPACE RECO. . 


. .C5 


SPACE 


- SPACE RECO., 


, ,D5 


WRTCHR 


- WRITE CHAR. , 


. .E5 


REWIND 


- POSITION T, . 


. .F5 


CKRAM 


• COMPARE RA,, 


. .G5 


RAMER - 


READ ANO DIS. . 


. .H5 


RAMER - 


READ ANO DIS.. 


. .15 


CKRAM2 


- COMPARE RA. . 


. . J5 


CKMSG 


- COMPARE WR. , 


. .I<5 


CKMSG2 


- COMPARE EX., 


. ,L5 


CKMSG2 


- COMPARE EX. . 


. .M5 


CKMSG2 


- COMPARE EX.. 


. .N5 


CKMSG2 


- COMPARE EX.. 


. B6 


ADDSSR 


- PRINT TEST. . 


. .C6 


FIFEXP 


- PRINT FIFO.. 


. .06 


MSGSTAT 


- PRINT STAT. . 


. ,E6 


MSGLOOP 


- PRINT LOOP., 


. ,F6 


MSGSU6 - 


PRINT WRITE,. 


, ,G6 


PRAMPKT 


- PRINT RAM . , 


. .H6 


PRMESS 


- PRINT CONT. . 


. .16 


PRMESS 


- PRINT CONT. . 


. .J6 


PRMESS 


- PRINT CONT.. 


. .K6 


PRMSGEXP 


- PRINT EXP. . 


. .1.6 


PRMSGEXP 


- PRINT EXP. . 


. .M6 


PRBYTEXP 


PRINT ERR. . 


, ,N6 


PRBYTEXP 


- PRINT ERR. . 


. ,BV 


EXPREC 


• PRINT EXPD,, 


. .C7 


EXPBREC 


PRINT EXPD. . 


. .07 


RAMTADD 


- PRINT TEST.. 


. .E7 


TIMEXP 


- PRINT TIME. . 


. .F7 


BADSSR - 


PRINT TSSR .. 


. ,G7 


GLOBAL SUBROUTINES S 


H7 


SOFINIT 


- SOFT INITI. . 


. ,17 


CHKAMB 


- CHECK TSSR.. 


. . J7 


enaint.dsbint - enab. . 


. ,K7 


IMTI! 


• INTERRUPT . . 


. ,L7 


WAl II 


• UAH FOR 5 


M/ 


CHKTSSR 


- CHECK TSSR. . 


. *N7 


XNXM 


- CHECK FOR . . 


. ,B8 


TSTLOOf 


- CHECK ITER. . 


. ,C« 


TSTSETUP 


- PRINT TES. . 


. .08 


TSTENO 


- PRINT ERRO. . 


. ,E8 


INCERK 


- INCREMENT . 


. ,F0 


CKDROP 


• CHECK IF U.. 


. .GB 


KTON.KTOFF EN. . 


. ,H8 


SETMAP 


- SETUP PAR6. , 


. ,18 


FILLMEM 


- FILL MEMOR. . 


. .J8 


CMPMEM 


- COMPARE ME , . 


. .K8 


CMP MEM 


- COMPARE ME. . 


. ,LC 


REGSAV 


- SAVE R1-R5.. 


. .Mfl 


GETPAT 


- GET 6 BIT ,, 


. .N8 



GETSEL - ISSUE MENU 
CHKMAN - CHECK MANU 
ENVIRN - SETUP FREE 
KTINIT - SETUP KT11 
PROTECTION TABLE 
INITIALIZE SECTION 
INITIALIZE SECTION 
INITIALIZE SECTION 
ADD AND DROP UNITS S 
ADD ANO DROP UNITS S 
CLEAN-UP AND REPORT 
CLEANUP AND REPORT 
TEST 1? SPACE RECOR 



TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 



TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 



TEST 

TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 



SPACE 
SPACE 
SPACE 
SPACE 
SPACE 
SPACE 
SPACE 
SPACE 
SPACE 
SPACE 
SPACE 
SPACE 
SPACE 



SPACE 
SPACE 
SPACE 
SPACE 
SPACE 
SPACE 
SPACE 
SPACE 
SPACE 
SPACE 
SPACE 
SPACE 
SPACE 



RECOR 
RECOR 
RECOR 
RECOR 
RECOR 
RECOR 
RECOR 
RECOR 
RECOR 
RECOR 
RECOR 
RECOR 
RECOR 



RECOR 
RECOR 
RECOR 
RECOR 
RECOR 
RECOR 
RECOR 
RECOR 
RECOR 
RECOR 
RECOR 
RECOR 
RECOR 



SPACE RECOR 

SPACE RECOR 

SPACE RECOR 

SPACE RECOR 
2: REREADS 
2: REREADS 

REREADS 

REREADS 

REREADS 

REREADS 

REREADS 

REREADS 



2} REREADS 



B9 

C9 
D9 
E9 
F9 
G9 
H9 
19 
J9 
K9 
L9 
M9 
N9 



BIO 
CIO 
D10 
E10 
F10 
G10 
H10 
110 
J10 
K10 
HO 
M10 
N10 



.811 
.Cll 

.011 
.Ell 
.F.U 
.Gil 
.Hll 
.Hi 

.Jll 
.Kll 
.Lll 
.Mil 
.Nil 



.B12 
.C12 

.012 
,E12 
,F12 
.G12 
.H12 
.112 
.J12 
.K12 
.L12 
»M12 
>N12 



TEST 


2: 


REREADS 


TEST 


2: 


REREADS 


TEST 


2: 


REREADS 


TEST 


2: 


REREADS 


TEST 


2: 


REREADS 


TEST 


2: 


REREADS 


TEST 


2: 


REREADS 


TEST 


2: 


REREADS 


TEST 


2: 


REREADS 


TEST 


2: 


REREADS 


TEST 




REREADS 


TEST 


2: 


REREADS 


TEST 


2: 


REREADS 


TEST 


2: 


REREADS 


TEST 


2: 


REREADS 


TEST 


2: 


REREADS 


TEST 


2: 


REREADS 


TEST 


o . 


REREADS 


TEST 


:> . 


REREADS 


TEST 


2: 


REREADS 


TEST 


2: 


REREADS 


TEST 


2: 


REREADS 


TEST 


2: 


REREADS 


TEST 


2: 


REREADS 


TEST 


\> . 


REREADS 


TEST 


2: 


REREADS 


VEST 


2: 


REREADS 


TEST 


2: 


Rl -'HEADS 


TEST 


2: 


REREADS 


TEST 


2: 


RERl'ADS 


TEST 


2: 


RERt ADS 


TEST 


2: 


REREADS 


TEST 


2: 


REREADS 


TEST 


2: 


REREADS 


TEST 


2: 


REREAD/, 


TEST 


2: 


R; READS 


TEST 


2: 


Hi. HEADS 


TEST 


2: 


REREADS 


TEST 


2: 


REREADS 


TEST 


2: 


REREADS 


TEST 


2; 


REREADS 


TEST 


2: 


REREADS 


TEST 


2: 


REREADS 


TEST 


2: 


REREADS 


TEST 


2: 


REREADS 


TEST 


2: 


REREADS 


TEST 


2: 


REREADS 


TEST 


2: 


REREADS 


TEST 


2: 


REREADS 


TEST 


2: 


REREADS 


TEST 


2? 


REREADS 



,B13 

.C13 
.013 
.E13 
.F13 
.G13 
.H13 
.113 
.J13 
.K13 
.1.13 
.M13 
,N13 



.014 
.C14 
.014 
.E14 
.F14 
.G14 
.H14 
.114 
.J14 
.K14 
.1.14 
.M14 
,N14 



.BIS 
.CIS 
.DIS 
.ELS 
.F15 
.G15 
.HIS 
.IIS 
.J15 
,K1S 
.LIS 

.his 
.N15 



.316 
.C16 
.1)16 
.E16 
.F16 
.Gift 
.H16 
.116 
. J16 
.K16 
.1.16 
.M16 



CZTKGA TK-25 FRT ENO TUNC #3 
TEST 2 5 REREADS 



MACRO M1200 20-APR-84 08il3 



B2 

PAGE 111-3 



885 1 

6852 
8653 
8854 
8855 
8856 
8857 
8861 



8862 
8863 
8864 
88b5 



8866 

8867 
8868 
8869 
8870 
8871 
8872 
8873 
8874 
8875 
8876 
8977 



045616 
>,*5620 
045622 
045622 
045624 
045630 
045632 
045636 
045640 
045642 
045646 
045646 
045650 
045652 
045654 
045656 
045656 
045662 
045664 
045664 
045664 
045666 
045674 
045676 
045702 



045702 
045706 
045710 
045714 
045714 
045714 
045716 



047053 
011710 

104406 
013701 
010102 
052702 
020102 
001406 
004737 

104456 
000534 
046204 
016360 

005137 
001226 



104403 
023727 
002402 
004737 



004737 
103002 
000137 



104432 
003116 



045764 
000001 

020116 



046110 

002170 
020170 

0173/2 

03173a 



1801s CKLOOP 

MOV 
MOV 
BIS 
CMP 
BEQ 
JSR 
ERRHRO 



190lt 



T26BFR*14,R1 

R1.R2 

♦6IT0.R2 

R1.R2 

1901 

PC.FATCHK 

ERRN0.T26NEF t EXPREC 



000031 





COM 
BNE 
ENOSUB 


T26CNU 
26* 


999$: 

» 


CMP 
BLT 
JSR 


FATFLG,#25. 

999$ 

PC.CKDROP 


i 

l 


JSR 
BCC 

JMP 


PC.TSTLOOP 
163$ 

T26L00P 



163$ j 



EXIT 



TST 



SEQ 221 



lLOOP IF SELECTED 

iGET XST3 STATUS WORD 

iSET UP EXPECTED 

iSET THE NEF BIT 

I ARE THEY EQUAL 

iBR, IF EQUAL CGOOO) 

I INC ANO CHECK FOR MORE 

iNEF SHOULD BE SET 



.WORD 
.WORD 

TRAP 



T26W0E 
PKTSSR 

C$CLP1 



THAN 25 ERRORS 



TRAP 
■ WORD 
.WORD 
,WORD 



C$ERHRD 
348 

T26NEF 
EXPREC 



iSET SWITCH THE OTHER WAY 
iBR. IF FIRST TIME THROUGH 
!>>>>>>>>>>>> END SUBTEST >>•*>>>>>>>>> 

L 10065: 

TRAP C$ESUB 
iIS ERROR COUNT AT 25 
»BR, IF LESS THAN 25 
l TRY TO DROP THE UNIT 



iDO WE NEED TO ITERATE TEST 
I BR, IF NO LOOP REQUIRED 

lEXECUTE AGAIN 



j ALL DONE THIS TEST 



TRAP 
♦ WORD 



C$EXIT 
L 10046- 



fg^ GA J K R{ffk^ END FUNC ^ MACRU m200 20 " APR " 84 08tl3 



CI 
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SEQ 209 



8257 
8258 
8259 

8260 
8261 
8262 
8263 
8264 
8265 
8266 
8267 
*268 
8269 
8270 
8c 71 
8272 



8273 
8274 
8275 
8276 
8277 
8278 
8279 
8280 
8281 
8282 
8283 
8284 
8285 
8286 
8287 
8288 
8289 
8290 
8291 
8292 
8293 
8297 
8298 



8299 
8300 
8301 
8302 
8303 
8304 
8305 
8306 
8307 
8308 
8309 
8310 



043672 
043672 
043672 
043674 



043700 
043702 
043706 
043712 
043716 
043722 



043726 
043732 
043734 
043740 
043742 
043742 
043744 
043746 
043750 
043752 



104402 

005737 003100 



000240 
000137 
004737 
005037 
004737 
00473? 



044652 
050650 
046106 
050742 
051004 



004737 016660 

103407 

004737 020116 

010001 

104455 
000503 
003550 
011676 



043752 012704 045730 



04 3756 004 73 7 019342 
043762 103407 



I TEST 2, SUBTEST 13 

i VERIFIES THAT A DATA BUFFER ADDRESS REFERENCING 

jNONEXISTENT MEMORY CAUSES RECOVERABLE ERROR 

♦TERMINATION CTC-4 OR 5) WITH NXM-1 AND THAT THE TAPE 

lIS ULTIMATELY POSITIONED PROPERLY ALL COMBINATIONS 

i OF REREAD PREVIOUS/NEXT AND OPP-O/l ARE TESTED. 

i 

i 

i 

i 

i - 



9$} 

I 
I 
t 
l 



10$: 



BGNSUB 



TST 
BEQ 



KTFLG 
101 



DIALOG NXM PATCH 



NOP 
JMP 
JSR 
CLR 
JSR 
JSR 



2*0% 

PC.T26REST 
T26CNT 
PC.T26RT2 
PC.T26RT3 



!>>>>>>*>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T2.13: 

TRAP CtBSUB 
iCHECK FOR KT11 
|BR, IF NO KTU 



jNXM PATCH 

iSKIP TEST IF KT11 

» SET COMMAND PACKET 

iCwEAfl TAPE RECORD COUNTER 

I SET UP OTHER COMMANO PACKET 

I SET UP OTHER COMMAND PACKET 



ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 



JSR 


PC.SOFINIT 


BCS 


201 


JSR 


PC.FATCHK 


MOV 


R0.R1 


ERRDF 


ERRN0.SF1ERR.SFIM5G 



20$: 



MOV 



♦T26PACKET.R4 



iDO INITIALIZE ON CONTROLLER 

iBR IF INIT WAS OK 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

iCONTENTS OF TSSR REGISTER 

jFATAL ERROO TSSR WAS NOT OK 

TRAP C$ERDF 

.WORD 323 
.WORD SFIERR 
.WORD SFIMSG 



i SUBROUTINE NEEDS PACKET ADDRESS 



iWRITE CHARACTERISTICS COfTIANO (CALL TO WRTCHR) 

I 

I***** *************«******■**#> #.***#**#4-#* ********************** ****** 



JSR 

BCS 



PC. WRTCHR 
56$ 



i ISSUE WRITE CHARACTERISTICS 
iBR* IF COMMAND ISSUED OK 



f£^ GA 2l K R£ffe&B£ END FUNC * 5 MACR0 M120 ° 2 °- APR * 84 ° 6jl3 
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SEQ 210 



8511 
C515 
8516 



8517 

8518 
8319 
8320 
8521 
8322 
8323 
852h 
8325 
8526 
8527 
8328 
8329 
8333 



8354 

8555 
8536 
8357 
8538 
8339 
8540 
8541 
8342 
8545 
8544 
8545 
8546 
8547 
8351 



8552 

8554 
8555 
8556 

8557 
8358 
8559 
8 360 
Q361 



043764 
045770 
045772 
045772 
045774 
045776 
044000 
044O02 
044002 



044004 
044010 
044012 
0^4016 
044020 
044024 
044024 
0440*6 
044050 
044052 
044054 
044034 



044056 
044042 
044044 
044 ~ 50 
044052 
044054 
O44060 
044060 
044062 
044064 
044066 
044070 
044070 
044072 



004757 
010001 

104456 
000504 
0O4754 
011676 

104406 



004757 
105411 
016501 
010004 
004757 

104456 
000505 
047414 

011710 

104406 



015701 
010102 
052702 
020102 
001406 
004757 

104456 
000506 
047125 
016560 

104406 
013757 



020116 



010444 
000000 

020116 



045756 
000002 

020116 



005072 046062 



26$ 5 



JSR PC,FATCHK 

MOV R0,R1 

ERRHRD ERRNO , WRTMSG ♦ SFIMSG 



CKLOOP 



I INC ANO CHECK FOR MORE THAN 25 ERRORS 

j SAVE CONTENTS OF TSSR 

IWRITE CHARACTERISTIC FAILED 

TRAP CIERHRD 

. WORD 324 

.WORD URTMSG 

.WORD SFIMSG 

»LOOP IF SELECTS. 

TRAP ClCLPl 



l ****************************************************************** 

I ISSUE REWINO COMMAND TO SELECTED TAPE DRIVE 

i 

I **************** ****«****: * 1*********4**4*************** *********** 

l CALL TAPE REWIND COMMANO 

i BR. IF NO PROBLEM 

iGET TSSR 

iPACKET ADDRESS SET UP 

j INC AND CHECK FOR MORE THAN 25 ERRORS 

I REWINO NOT ACCEPTED 



JSR 


PC, REWIND 


BCS 


30$ 


MOV 


TSSR(R5),R1 


MOV 


R0.R4 


JSR 


PC.FATCMK 


ERRHRD 


ERRNO, T26RWN*PKTSSR 



301; 



CKLOOP 



j LOOP IF SELECTED 



TRAP 


CIERHRD 


.WORD 


325 


.WWO 


T26RWN 


.WOHD 


PKTSSR 



TRAP 



ClCLPl 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 
******************************************** ********************** 

tPICK UP XSTO 

iSET UP EXPECTED 

I SET BOT BIT IN EXPECTED 

i DOCS EXP - REC'D 

iBR, IF EQUAL COK) 

jINC AND CHECK FOR MORE THAN 25 ERRORS 

j TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

lLOOP IF SELECTED 

TRAP 

iSTARTING WRITE BUFFER ADDRESS 



MOV 


T26BFR*6,R1 


MOV 


R1.A2 


BIS 


#eiTl,R2 


CMP 


R1.R2 


BEQ 


401 


JSR 


PC.FATCHK 



40$ 



ERRHRD ERRNO, T26B0T.EXPREC 

CKLOOP 

MOV FREE.T26RB 



CIERHRD 
326 

T26B0T 
EXPREC 

ClCLPl 



( **************************************************** ************** 

jWRITE DATA,CVC*1.ACK COMMANO 

l 

[ 4*4***4*** ****** ******* ******************************************* 



044100 012737 140005 046060 



MOV 



• 1*0005, T«*PK3 



IWRITE DATA 4 CVC*1,ACK COMMAND 



STO ?Kb3 frt 


KIPDR7- 


172316 




KTENAB 


003102 


G 


KTFLG 


003100 


G 


KTINIT 


021636 




KTOFF 


020262 




KTON 


020244 




I.ERRMA 


002140 


G 


LISTAL- 


000001 




Loe 


040000 


G 


LOOPCN 


002164 


G 


LOOPCO 


012770 




LOOPFL 


003114 


G 


LOT 


000010 


G 


LiACP 


002110 


G 


LIAPT 


002036 


G 


LtAU 


022560 


G 


LIAUT 


002070 


G 


LIAUTO 


022764 


G 


LICCP 


002106 


G 


LICLEA 


023040 


G 


LtCO 


002032 


G 


LIDEPO 


002011 


G 


lidesc 


003342 


G 


lidesp 


002076 


G 


LIDEVP 


002060 


G 


LIDISP 


066012 


G 


HOLY 


002116 


G 


LIDTP 


002040 


G 


LtDTYP 


002034 


G 


LIOU 


022656 


G 


LIDOT 


002072 


G 


LIDVTY 


003334 


G 


LIEF 


002052 


G 


LIENVI 


002044 


G 


LIETP 


002102 


G 


LIEXP1 


002046 


G 


LIEXP4 


002064 


G 


LIEXP5 


002066 


G 


LfHARD 


065460 


G 


LIHIME 


002120 


G 


LIHPCP 


002016 


G 


LIMPTP 


002022 


G 


LtHU 


002124 


G 


LIICP 


002104 


G 


LIINIT 


022000 


G 


LILAOP 


002026 


G 


LILA5T 


066026 


G 


LILOAO 


002100 


G 


LILUN 


002074 


G 


LIMREV 


002050 


G 


LINAME 


002000 


G 


LIPRIO 


002042 


G 


LIPROT 


0217 70 


G 


LIPRT 


002112 


G 


L$REPP 


002062 


G 


LIREV 


002010 


G 


LIRPT 


023066 


G 



FRT ENO FUNC *3 MACRO M1200 20-APR-84 08:13 
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SEQ 275 



LtSOFT 

LtSPC 

LISPCP 

LtSPTP 

LISTA 

LISW 

LITEST 

LITIML 

LIUNIT 

L10000 

L10001 

L 10002 

L10003 

L100O4 

L 10005 

L 10006 

L10007 

L10010 

L10011 

L10012 

L10013 

L10014 

L10015 

L10016 

L10017 

L. 10020 

L 10021 

L 10022 

L 10023 

L 10024 

L 10025 

L 10026 

L 10030 

L10031 

L10032 

L10033 

L10034 

L10035 

L10036 

L10037 

L10040 

L10041 

L10042 

L10043 

L 10044 

L10045 

L10046 

L10O47 

L10050 

L 10051 

L 10052 

L10O53 

L 10054 

L 10055 

L10056 

L10O57 

L10060 



065620 
002056 
002020 
002024 
002030 
002134 
002114 
002014 
002012 
002132 
002144 
005226 
011706 
011736 
011754 
011762 
012000 
012016 
012030 
012102 
012252 
012766 
013614 
013636 
016364 
016372 
016400 
016412 
016434 
016462 
016622 
017132 
022510 
022654 
022762 
023036 
023064 
023326 
031664 
024372 
025032 
025466 
026216 
027144 
027454 
030044 
051034 
032616 
033454 
034340 
035260 
036026 
036656 
037520 
040362 
041230 
042076 



L10061 
L10062 
L10063 
L 10064 
L10065 
L 10066 
L10O67 
L10070 
L10071 
L10O72 
L10073 
L10074 
L10075 
L10076 
L10077 
L10100 
L 10102 
MEHAOO 
MENASC 
MENERR 
MEWES 
MES8FA 
MESBFN 
MESHEA 
MKVEC • 
MPR 

MSA.FR- 
MSA. NO- 
MSA, NR- 
MSA.VO- 
MSGEXP 
MSGLOO 
MSGSTA 
MSGSU8 
MS. ATT- 
MS. EXT- 
MS.RSO- 
MS.RSF- 
MS.RST- 
NBA 

NEUPAS 
NOOEV 
NOINIT 
NOINTR 
NOXTS 
NOMAN 
NP.XR - 
NP.LOO- 
NP.OUT- 
NP.WRP- 
NSI 

NSINIT 
NUL 
NULCR 
NXM 
NXR 
NXRERR 



042734 

043654 

044652 

045222 

045664 

061032 

051456 

052230 

053044 

053740 

055456 

065454 

063150 

065512 

065634 

066032 

066040 

013616 G 

021367 

021314 

021416 

002716 G 

014650 

015033 

000250 

174406 

000006 

000000 

000004 

000002 

012020 G 

012726 G 

012212 G 

013604 G 

000006 

000200 

000001 

000020 

000010 

002OO0 

022212 

003062 G 

004233 

004117 

002136 G 

021454 

000200 

000040 

000100 

000020 

004050 

004 305 

0O4425 

004426 

004000 

003636 

005176 G 



NXRX 

NXTU 

OTL 

ONEFIL 

OIAPTS 

OIAU 

OIBGNR 

OIBGNS 

OIDU 

OIERRT 

OIGNSU 

OIPOIN 

OISETU 

PASRPT 

PATCH 

PATOAT 

PC. ERA 

PC.IER 

PC.NOO 

PC.REL 

PC.REW 

PKBCNT 

PKHI 

PKLOU 

PKTAOO 

PKTFRM 

PKTGET 

PKTMES 

PKTNEW 

PKTRAM 

PKTSSR 

PNT 

PRAMPK 

PR8EXP 

PR8MSG 

PRBREC 

PRBTOT 

PRBYTE 

PR I 

PRIAOO 

PRIAO 

PRIBXO 

PRIEQU 

PRIPKT 

PRIRAM 

PRITAD 

PRITSS 

PR I TO 

PRIXOR 

PRIOO 

PRI01 

PRI02 

PRI03 

PRI04 

PRI05 

PRI06 

P»IOV 



003675 

022224 

000100 

000000 

000000 

000001 

000001 

000001 

000001 

000000 

000001 

OOOOOl 

OOOOOl 

022256 

CK,6022 

C21150 

002400 

002000 

001000 

000000 

00O400 

000006 

C00004 

000002 

007302 

007244 

011740 

011764 

007337 

004643 

011710 

001000 

013640 

016354 

016222 

016356 

016307 

016006 

002000 

007716 

007766 

007350 

007616 

007076 

007624 

010032 

005264 

010102 

007500 

000000 

000040 

000100 

000140 

000200 

000240 

000300 

000340 



PRMESS 

PRMNO 

PRKSGE 

PRMSGO 

PRMSG1 

PRMSG2 

PROASC 

PR1ASC 

PST32W 

PUMIT 

PU.DU 

PW.D13 

PW.D22 

PW.NOP 

PW.N01 

PW.HDE 

PU.ROR 

PW.ROS 

PU,RFI 

PW.WCT 

PW.WFI 

PU.WFM 

PW.WMI 

PW.UNP 

PW.WTR 

P.ACK 

P.CMO 

P.CONT 

P.CVC 

P.FMT 

P. FORM 

P. GETS 

P. IE 

P.INIT 

P.MOOE 

P.OPP 

P.POSI 

P. READ 

P. SUB 

P.URIT 

P.WRTC 

P.URTS 

QVP 

RAMASC 

RAMDAT 

RAMER 

RAMERR 

RAMEXP 

RAMFHR 

RAMFOR 

RAMHLD 

RAMIOP 

RAMPO 

RAMR5H 

RAMSIZ 

RAMTAO 

RBPCRA 



014072 
002264 
015436 
015616 
015663 
015721 
014730 
014775 
003104 
022512 
000021 
000022 
000020 
000000 
000023 
000024 
OOOOOl 
000005 
00OO03 
000006 
000004 
000007 
000010 
000011 
000002 
100000 
000037 
000012 
040000 
000140 
000011 
000017 
00O2O0 
000013 
007400 
020000 
OOOOIO 
OOOOOl 
010OO0 
000005 
000004 
000006 
002152 
014006 
0022O6 
010646 
016374 
016414 
014552 
007654 
011030 
011034 
011105 
011032 
002246 
016402 
015145 



CZTKGA TK 25 FRT END FUNC *3 
TEST 2: REREADS 



8415 
8419 



8420 

842] 

8422 

8423 

8424 

8425 

8426 

8427 

8428 

8429 

8430 

8431 

8432 

8*33 

8434 

8435 

8436 

8437 

8438 

8439 

8440 

8441 

8442 

8443 

8444 

8445 

8449 



8450 

8451 
8452 
8453 
8454 
8455 
8456 
845 7 
8458 
8459 
8460 
8461 
8462 
6463 
8464 
8465 
8466 
&467 



044264 
044270 
044270 
044272 
044274 
044276 
044300 
044300 
044 302 
044 306 
044314 



044322 
044326 
044332 
044340 
044344 
044350 
044354 
044360 
044362 
044364 
044370 
044372 
044376 
044400 
044400 
044404 
044404 
044406 
044410 
044412 
044414 
044414 



044416 
044424 
044432 
044436 
044444 
044450 
044454 
044460 
044464 

044466 



004737 020116 

104456 
000511 
047125 
016360 



104406 
012703 
012737 
012737 



011337 
012704 
012737 
010465 
004737 
016501 
012702 
020102 
001414 
031327 
001403 
030127 
001006 



012737 
012737 
005037 
013737 
010465 
004737 
016501 
012702 
020102 
001406 



046076 
177376 
000077 



046060 
046060 
000400 
177776 
017134 
000000 
104210 



001000 
000002 



004737 020116 

104456 
000512 
046335 
011710 

104406 



140001 
0OO40O 
046064 
003072 

177776 
017134 
0OO00O 
000200 
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SEQ 212 



046062 
046064 



140$ 
150$ 



JSR 
ERRHRD 



CKLOOP 



PC.FATCHK 
ERRN0,T26B0T I EXPREC 



MOV 
MOV 
MOV 



♦T26RN.R3 
♦177376. T26RB 
♦O0O077,T26RB*2 



I INC AND CHECK FOR MORE THAN 25 ERRORS 

i TAPE NOT AT BOT AFTER REWINO 

TRAP CIERHRD 

.WORD 329 
.WORD T26B0T 
.WORD EXPREC 

l LOOP IF SELECTED 

TRAP C$CLP1 

j COMMAND BUFFER ADDRESS 

» STARTING READ BUFFER ADDRESS 

i SET UP HIGH ORDER ADDRESS BITS 



046066 



I ****************************************************************** 

, REREAD DATA.IE.ACK, OPP COMMANO 

i 

J ***************************** **************************** ***«***4<* 

, REREAD DATA.IE.ACK, OPP COMMANO 
1651s MOV #T26PK3,R4 iSET UP R4 WITH PACKET ADDRESS 

I SET UP RECORD SIZE IN PACKET 
1 ISSUE COMMAND 
iWAIT FOR SSR TO SET 
iGET T55R CONTENTS 
i SET UP EXPECTED 
l ARE THEY EQUAL 
iBR. IF OK 

I CHECK FOR A READ COMMAND 
l BR, IF IT WAS A READ COMMANO 
iWAS BIT1 SET 
iBR. IF REREAD AND BIT1 SET 



168$ 



MOV 


CR3).T26PK3 


MOV 


♦T26PK3.R4 


MOV 


♦256..T26SZ 


MOV 


R^.TSDeCRS) 


JSR 


PC.WAITF 


MOV 


TSSR(R5).R1 


MOV 


#SSR!NXM»SC!BIT3.R2 


CMP 


R1.R2 


BEQ 


170$ 


BIT 


CR3).*eiT9 


BEQ 


168$ 


BIT 


R1.46XT1 


BNE 


170$ 


JSR 


PC.FATCHK 


ERRHRD 


ERRN0.T26RRF.PKTSSR 



iINC ANO CHECK FOR MORE THAN 25 ERRORS 
jTSSR INCORRECT AFTER REREAD DATA 



170$ 



CKLOOP 



tLOOP IF SELECTED 



TRAP 
.WORD 
,WORD 
.WORD 

TRAP 



C$ERHRD 
330 

T26RRF 
PKTSSR 

C$CLPl 



046060 
046066 

046062 



,****************************************************************** 

jREAD DATA, ACK.CVC-1 COMMANO 

i 
,*******•**************«*******«***«*****•«•*********************** 

iREAO DATA, ACK.CVC-1 COMMANO 

I SET SIZE INTO PACKET 

jCLEAR OUT HIGH ADDRESS BITS 

iGIVE READ A GOOO BUFFER 

i ISSUE READ OATA COMMANO 

i WAIT FOR SSR 

iPICK UP THE TSSR 

iSET UP EXPECTED 

I IS THE TSSR OK 

I BR, IF TSSR OK (GOOD) 



MOV 


♦140001. T26PK3 


MOV 


•256..T26SZ 


CLR 


T26RB*2 


MOV 


FREE.T26RB 


MOV 


R4,TSD6(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


♦SSR,R2 


CMP 


R1.R2 


BEQ 


180$ 



W A 2 ! K Rifc£& END ™ c * 3 



Gl 



8468 


044470 


004 737 


020116 


6472 


044474 








044474 


104456 






044476 


000513 






044500 


005104 






044502 


011710 




8473 


044504 








044504 


104406 




84 74 


044506 


017701 


136360 


8475 


044512 


012702 


000001 


84 76 


044516 


020102 




84,* 7 


044520 


001406 




8478 


044522 


004737 


020116 


8482 


044526 








044526 


104456 






044530 


000514 






044532 


046116 






044534 


016360 




8483 


044536 








044536 


104406 




8484 








8485 








8486 








8487 








8488 








8489 








8490 








8491 


044540 


004737 


010444 


849? 


044544 


103411 




8493 


044546 


016501 


OOOOOO 


8494 


044552 


010004 




8495 


044554 


004737 


020116 


8499 


044560 








044560 


104456 






044562 


0OO515 






04456* 


047414 






044566 


011710 




8500 


044570 








044570 


104406 




8501 








8502 








8503 








8504 








8505 








8506 








8507 








8508 


044572 


013701 


045756 


8509 


044576 


010102 




8510 


044600 


0S2702 


000002 


8511 


044604 


020102 




8512 


044606 


001406 




8513 


044610 


004737 


020116 


6517 


044614 








044614 


104456 






044616 


0OO516 






044620 


047125 






044622 


016360 
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JSR PC.FATCHK 

ERRHRD cRRNO.RDERR, PKTSSR 



SEQ 213 



180$: CKLOOP 



MOV 


SFREE.Rl 


MOV 


#l,R2 


CMP 


R1.R2 


BEQ 


190$ 


JSR 


PC.FATCHK 



ERRHRD LRRNO , T26WNG , uXPI ;bC 



190$: CKLOOP 



I INC AND CHECK TOR MORE THAN 25 

I READ DATA COMMAND FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

jLOOP IF SELECTED 

TRAP 

j FIRST WORD FROM READ BUFFER 

»SET UP EXPECTED 

i IS TAPE POSITION CORRECT 

jKEE n GOING POSITION OK 

j INC AND CHECK FOR MORE THAN 25 

jTAPE POSITION INCORRECT 

TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



ERRORS 

CIERHRD 
331 
RDERR 
PKTSSR 

C$CLP1 



ERRORS 

C$ERHRD 
332 

T26WNG 
EXPREC 

C$CLP1 



I * + *** + * + ***** + + + * + ** + * 4^** + + + + + « + ** + + «**** A*********************** 

I ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

» CALL TAPE REWIND COMMAND 

iBR, IF NO PROBLEM 

jGET TSSR 

, PACKET ADDRESS SET UP 

l INC AND C'^.CK FOR MORE THAN 25 ERRORS 

jREWINO NOf ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 
I LOOP IF SELECTED 

TRAP 



JSR 


PC.REWINO 


BCS 


1941 


MOV 


«SSRCR5),R1 


MOV 


R0.R4 


JSR 


PC.FATCHK 


ERRHRD 


ERRN0.T26RWN.PKTSSR 



194$: CKLOOP 



C$ERHRD 

333 

T26RWN 

PKTSSR 



C5CLP1 



.*** 



J************************************************************, 

jREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 
» 

jPICK UP XSTO 

» SET UP EXPECTED 

I SET BOT BIT IN EXPECTED 

iDOES EXP - REC'O 

iBR, IF EQUAL CO*) 

»INC ANO CHECK FOR MORE THAN 25 ERRORS 

iTAPE NOT AT BOT AFTER REWIND 

TRAP C$tRHRD 

.WORD 334 
.WORD T26B0T 

.WORD EXPREC 



MOV 


T26BFR*6,R1 


MOV 


R1.R2 


BIS 


•BIT1.R2 


CMP 


R1.R2 


BEQ 


196$ 


JSR 


PC.FATCHK 



ERRHRD ERRN0.T26B0T, EXPREC 



HI 

9£^ GA ^^fteAfj£ END KUNC ° 3 MACR0 M1200 20 -APR 84 08:13 PAGE 109-5 



SEQ 214 



8518 

8519 
8520 
8521 
852? 
8525 
8524 
8525 
8526 
8527 
8528 
8529 
8550 
8531 
8532 
8533 
8534 
8535 



8536 
8537 
8538 
8539 



044624 
044624 
044626 



044630 
044634 
044640 
044642 
044644 
044650 
044652 
044652 
044652 
044652 
044654 
044662 
044664 
044670 



104406 
010302 



012703 
004737 
010203 
005723 
021327 
001216 



000001 
010144 



177777 



104403 

023727 002170 

002402 

0Q4757 Q2017O 



000031 



196$ J CKLOOP 

MOV R3,R2 

I****************************************************************** 



j LOOP IF SELECTED 

TRAP 
j SAVE R3 TOR A MOMENT 



j ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
;BIT 15 SETS DIRECTION - 0-FORWARD 1-REVERSE 

i *********************************************************** ******* 

j SPACE ONE RECORD 

I CALL SPACE ROUTINE 
jRESTORE R3 
jbvMP COUNTER 

»ENO OF COMMAND BUFFER YET 
,MORE COMMANOS KEEP GOING 



MOV 


• 1,H3 


JSR 


PC, SPACE 


MOV 


R2.R3 


TST 


(R3)* 


CMP 


(R3), 0177777 


BNE 


150$ 



200$ 



C$CLP1 



999$ 



ENOSUB 



CMP 
BLT 
JSR 



FATFLG.025, 

999$ 

PC.CKOROP 



!%>>*>>>*>>>> end SUBTEST >-■-»>>>>>*>>» 

L 10063: 

TRAP C$ESUB 

j IS ERROR COUNT AT 25 
jBR. IF LESS THAN 25 
l TRY TO DROP THfc UNIT 



H5 



CZTKGA TK-25 FRT END FUNC 0? 
TEST 4: WRITE/READ TAPE MA&K 
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SEG1 266 



10907 063174 000137 061100 

10908 06320O 

10909 063200 
063200 10445> 
063202 002252 



163$; 



JMP 
EXIT 



T28L00P 
TST 



I EXECUTE AGAIN 
jALL DONE THIS TEST 



TRAP 
.WORD 



CiExir 

L10074-. 



CZTKGA TK-25 FRT END FUNC 03 
TEST 2 x REREADS 



Jl 
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SEQ 216 



8593 
8594 
8595 
8596 
8597 
8598 
8599 
8600 
8601 
6602 
8603 
8604 
8605 
8609 



8610 

8611 
8612 
8613 
8614 
8615 
8616 
8617 
8618 
8619 
8620 
8621 
8622 
8623 
8627 



8628 

8629 
8630 
8631 
8632 
8633 
8634 
8635 
8656 
863? 
8638 
8639 
8610 
8641 
8042 
8643 
H644 
U645 



044766 
044772 
044776 
045002 
045004 
045006 
045012 
045012 
045014 
045016 
045020 
045022 
045022 



004737 010444 

016501 000000 

012702 000200 

103407 

010004 

004^37 020116 

104456 
000521 
047414 

011710 

104406 



045024 
045030 
0450i£ 
045036 
045040 
045042 
045046 
045046 
045050 
045052 
045054 
045056 
045056 
045060 
045066 
0450/4 
045076 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
0O0522 
047125 
016360 

104406 
012737 
01V.37 
005703 
001404 



045756 
000002 

020116 



000400 
003072 



046066 
046062 



045100 
04^106 



012737 
000403 



161001 046060 



************************************************************ i****** 

{ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

J 

} ************************ **************************** ************** 



26$ 



jsn 


PC.RFWINO 


MOV 


TSSR(R5),R1 


MOV 


♦SSR,R2 


BCS 


30$ 


MOV 


R0.R4 


JSR 


PC.rATCHK 



30$ 



ERRHRD ERRNO , T26RWN , PKTSSR 



CKLOOP 



j CALL TAPE REWIND COMMAND 

I GET TSSR 

{SET UP EXPECTED TSSR 

j BR, IF NO PROBLEM 

j PACKET ADDRESS SET UP 

j INC ANO CHECK FOR M)RE THAN 25 ERRORS 

I REWIND NOT ACCEPTED 

TRAP CIERHRD 
.WORD 337 
.WORD T26RWN 
.WORD PKTSSR 

{LOOP IF SELECTED 

TRAP C$CLP1 



MOV 


T26BFR»6,R1 


MOV 


R1.R2 


BIS 


*8IT1,R2 


CMP 


R1.R2 


BEQ 


40$ 


JSR 


PC.FATCHK 



J ****************************************************************** 

;READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

l ****************************************************************** 

jPICK UP XSTO 

{SET UP EXPECTED 

iSET BOT BIT IN EXPECTED 

{DOES EXP - REC'D 

{BR, IF EQUAL (OK) 

j INC ANO CHECK FOR MORE THAN 25 ERRORS 

{TAPE NOT AT BOT AFTER REWIND 

TRAP C$ERHRD 
.WORD 338 
.WORD T26B0T 
WORD EXPREC 
40$ j CKLOOP »LOOP IF SELECTED 

TRAP C$CLP1 
{SET UP RECORD SIZE IN PACKET 
{ADDRESS OF READ BUFFER 
;CH€CK NUMBER Of TIMES THROUGH HERE 
jBR, IF FIRST TIME THROUGH HERE 

I****************************************************************** 

J 

{REREAD, CVC-l.ACK COHMANO 

j ************* ***************************************************** 



ERRHRD ERRNO , T26B0T , EXPREC 



MOV 


0256..T26SZ 


MOV 


FREE.T26RB 


TST 


R3 


BEQ 


50$ 



MOV 0161001, T26PK3 
BR 55$ 



{REREAD, CVC-l.ACK COMMAND 
{SKIP NEXT COMMAND 



j ****************************************************************** 
i REREAD, ACK COMMAND 



CZTKGA TK-25 FRT END FUNC 01 
TEST 4: WRITE/READ TAPE MARK 

10974 063376 000000 

10975 063400 000000 

10976 063402 000000 
10977 

10978 
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T28CNT 
T28CNU 
T28DLY 



.WORD 
.WORD 
.WORD 
.EVEN 
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SEQ 268 



I TAPE TIMER COUNTER STORAGE AREA 
j TAPE TIMER COUNTER STORAGE AREA 
l DELAY COUNTER 



CZTKGA TK-25 FRT END FUNC 03 
TEST 2; REREADS 



8691 
8692 
8693 
8694 
8695 
8696 
8697 
8698 
8699 
8700 
8701 
8702 
8703 
8704 
8705 
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ScQ 218 



8706 
8707 
8708 
8709 
8710 
8711 
8712 
8713 
8714 
8715 
8716 
8717 
8718 
8719 
8723 
8724 



8725 

8726 
8727 
8728 
8729 
6730 
8731 
8732 
6733 
8734 
8735 
8736 
8737 
e741 
8742 



8/43 



045240 
0452<0 
C 4 5240 
045242 
045246 
045252 
045256 



045262 
045266 
045270 
045274 
045276 
045276 
0^5300 
045302 
045304 
045306 



045312 

045316 
045320 
045324 
045326 
045326 
045330 
045332 
045334 
045336 



104402 

005037 046110 

004737 050650 

004737 050742 

004737 051004 



004737 016660 

103407 

004737 020116 

010001 

10445" 
0005.^ 
00355C 
011676 



045306 012704 045730 



004737 010342 

103407 

004737 020116 

010001 

104456 
000526 
004 754 
011676 



I ♦ 



TEST 2, SUBTEST 15 

VERIFIES THAT REREAD PREVIOUS WITH OPP-1 (SPACE 
REVERSE, READ FORWARD) AN,: r.: ?FAD PREVIOUS WITH OPP-1 
(READ REVERSE, SPACE FORWARD) rSSUEO WHEN THE TAPE 
POSITIONED JUST BEFORE THE FIRST RECORD ON TAPE (BUT 
NOT AT BOT) CAUSES TAPE STATUS ALEUT TERMINATION WITH 
T^. REVERSE INTO BOT (RIB) STATUS BIT SET. 



BGNSUB |>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T2.15: 

TRAP C5BSUB 
l CLEAR OUT COUNTER 
j SET COMMANO PACKET 
} SET UP OTHER COMMAND PACKET 
j SET UP OTHER COMMAND PACKE T 

j **********************+***************************************+**+ 

J 

j ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 

t D0 INITIALISE ON CONTROLLER 

jBR IF INIT WAS OK 

j INC ANO CHECK FOR MORE THAN 25 ERRORS 

iCONTENTS Of TSSR REGISTER 

I FATAL ERROR TSSR WAS NOT OK 

TRAP C*ERDF 
.WORD 341 
.WORD SFIERR 
.WORD SFIMSG 



CLR 


T26CNU 


JSR 


PC,T26REST 


JSR 


PCT26RT2 


JSR 


PC.T26RT3 



JSR 


PC.SOFINIT 


BCS 


20$ 


JSR 


PC.FATCHK 


MOV 


R0.R1 


ERRDF 


ERRNU.SFIERR, SFIMSG 



20$! 



MOV 



*T26PACKET,R4 



j SUBROUTINE NEEDS PACKET ADDRESS 



!wRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



25$: 



JSR PC. WRTCHR 

BCS 25$ 

JSR PC.FATCHK 

MOV R0.R1 

ERRHRD ERRNO , WR TMSG , SF IMSG 



CKLOOP 



i ISSUE WRITE CHARACTERISTICS 

j BR, IF COMMANO ISSUED OK 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 

j SAVE CONTENTS OF TSSR 

l WRITE CHARACTERISTIC FAILED 

TRAP CSERHRD 
.WORD 34.' 
.WORD WRTMSLi 
.WORD SFIM5G 

lLOOP IF SELECTED 



CZTKGA TK .25 KRT END FUNC 43 
TEST 4: WRITE/READ TAPE MARK 
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SEQ 270 



11037 
11038 
11039 
11O40 
11041 
11042 
11043 
11044 
11045 
11046 
11047 
11048 
11049 
11050 
11051 
11052 
11053 
11054 



11O60 
11065 

11071 
11072 
11073 
11074 
11075 
11076 
1107 7 
11078 
11079 
11080 
11081 
11082 
11083 
11084 



11085 
11086 



11087 



11088 



065400 
065404 
065410 
065412 
065416 
065420 
065424 
065426 
065430 
065432 
065432 
065436 
065442 
065444 
065446 
065450 
065452 
065454 
065454 
065454 



11089 



065456 
065456 
065460 

065460 
065460 
065462 
065464 
065466 
0654 70 
065470 
065472 
065474 
06*34 76 
065500 
065500 
065502 
065504 
065506 
065510 
06S512 



012721 
012721 
005021 
012721 
005021 
012701 
005021 
005011 
000207 



012701 
005021 
005021 
005021 
005011 
000207 



104401 



000015 



000031 
065512 
16OO00 
177776 

001051 
065541 
000000 
000776 

002032 
065565 

000340 
000000 
000007 



100006 
063350 

000006 

063350 



T28RT3: 



063340 



MOV #100006. CRD* 

MOV 0T28BF2.CRD* 

CLR CR1)> 

MOV #6 ,CR1)* 

CLR CRlJ* 

MOV 0T28BF2.R1 

CLR (Rl)t 

CLR (Rl) 

RTS PC 

SAVREG 

MOV 0T28PK3.R1 

CLR CRD* 

CLR CRD* 

CLR (Rl)f 

CLR CRD 

RTS PC 
ENDTST 



jWRITE SUBSYSTEM MEM. WITH ACK , 

f ADDRESS OF DATA BLOCK 

i EXTENDED ADDRESS 

I SIZE OK DATA BLOCK IN BYTES 

» POINT TO DATA SEL AREA 



jRETURN 



I GET PACKET ADDRESS 
j CLEAR COMMAND AREA 
i CLEAR ADDRESS AREA 
j CLEAR EXTENOED 
j SIZE OF DATA TRANSFER 
{RETURN 

L10074 



AREA 



TRAP 



C$ETST 



.SBTTL HARDWARE PARAMETER CODING SECTION 



THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE. SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 



BGNHRD 




.WORD L10076-LIHARQ/2 


LIHARDj; 




GPRMA 


HPM1 ,0,0, 160000 , 177776 , YES 


.WORD 


TICODE 


.WORD 


HPM1 


.WORD 


TILOLIM 


.WORD 


TIHlLIM 


GPRMA 


HPM2.2.0.0,776,YES 


.WORD 


i ICODE 


.WORD 


HPM2 


.WORD 


TILOLIM 


.WORD 


TIHIt IM 


GPRMO 


HPM3. 4, 0,340. 0,7, YES 


.WORD 


TICODE 


.WORD 


HPM3 


.WORD 


340 


.WORD 


TILOLIM 


.WORD 


TIHILIM 


ENDHRO 




.EVEN 





j GET TSBA/TSDB REGISTER ADDRESS 



jGET VECTOR ADDRESS. 



iGET INTERRUPT PRIORITY 



CZTKGA TK-25 FRT END FUNC 03 
TEST 2: REREADS 



*79fi 

fl </ 

6f..-3 

8802 

880?. 

8604 

8805 

880-5 

8807 

8808 

8809 

8810 

8811 

8812 

6816 



8817 

8818 
F819 
8820 
8821 
8822 
8823 
8824 
6825 
8826 
8827 
8628 
8829 
3850 
8031 
8832 
8833 
8834 
8835 
8836 
'1837 
8838 
8839 
8840 
8841 
8842 
?843 
C844 
8845 
8646 
8850 



045460 
045462 
045164 
045464 



04 7053 
011710 

104406 



045466 
045472 
045476 
045500 
045504 
045506 
045512 
045512 
045514 
045516 
045520 
043522 
045522 
045524 
045532 
045536 



012703 
004737 
103411 

oi6roi 

010004 
004737 

104456 
OOC532 
047053 
011710 

104406 
013737 
005737 
001404 



100001 
010144 

000000 

020116 



003072 
046110 



045540 
045546 



012737 161001 
000403 



045550 
045556 
045556 
045562 
045566 
045572 
045576 
045602 
045604 
045606 
045M2 
045612 
045614 



012737 141001 



012704 
010465 
C04737 
016501 
012702 
020102 
001406 
004737 

104456 
000533 



046060 
177776 
017134 
000000 
100204 



020116 
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SEQ 220 



046062 



046060 



75$: 



CKLOOP 



{LOOP IF SELECTED 



.WORD 
.WORD 

tr; 



T26UDF 

PKTSSR 

ciari 



MOV 


$100001, R3 


JSR 


PC, SPACE 


BCS 


1751 


MOV 


TSSR(R5),R1 


MOV 


R0,R4 


JSR 


PC.FATCHK 



*** 4*********4.***************************** ****************.*** **** 

ISSUE SPACE RECORDS COiMMAND • VALUE IN R3 SETS NUMBER OF RECORDS 
BIT 15 SETS DIRECTION - 0-FORWARD 1-REVERSE 

**************************************** ********************** **** 

j SET SPACE REVERSE 1 RECORD 

j ISSUE COMMAND 

{GO ON IF ALL IS WELL 

{GET TSSR CONTENTS 

;SET UP EXPECTED (PACKET CONTENTS) 

5 INC AHO CHECK FOR MORE THAN 25 ERRORS 

{TSSR INCORRECT AFTER REAO DATA 

TRAP C$ERHRD 
. UORD 346 
.UORD T26WDI 
.WORD PKTSSR 
175$: CKLOOP ;L0OP IF SELECTED 

TRAP C$CLP1 
{ADDRESS OF BUFFER 
{CHECK FOR TIMES THROUGH HERE 
;BR, IF FIRST TIME THROUGH 

*********************** a****************************************** 
REREAD (PREVIOUS), IE, ACK.OPP-1 CMO . 

***************************************** ************************* 



ERRHRD ERRNO , T26WDE , PKTSSR 



MOV 


FREE.T26RB 


TST 


T26CNU 


BEH 


176$ 



MOV 0161001. T26PK3 

BR 178$ 



{REREAD (PREVIOUS), IE t ACK,OPP-l CMD. 
:SkIP NEXT COMMAND 



;****************************************************************** 

REF-.AD ,ACK,0PP-1 COMMAND 

**************** *********** *************************************** 



046060 176'; 
178$: 



MOV 0141001, T26PK3 

MOV 0T26PK3.R4 

MOV R4.TSDGCR5) 

JSR PC.WAITF 

MOV TSSR(R5),R1 

MOV *SSR!SC!BIT2,R2 

CMP R1.R2 

8EU 180$ 

JSR PC.FATCHK 

ERRHRO ERRNO , T26WDE . PK TSSR 



{REREAD ,ACK,0PP«1 COMMAND 

{SET UP R4 WITH PACKET ADDRESS 

{ISSUE COMMAND 

{WAIT FOR SSR TG SET 

{GET TSSR CONTENTS 

{SET UP EXPECTED 

{ARE THEY EQUAL 

:BR, IF OK 

{INC ANO CHECK FOR MORE THAN 25 ERRORS 

;TSSR INCORRECT AFT r .R ^EAD DATA 

TRAP CJERHRD 
.WORD 347 



B2 



CZTKGA TK-25 f'RT ENO FUNC *3 
TEST 2i REREADS 



66M 

8652 
8653 
8654 
8855 
8856 
8857 
8861 



8862 
8863 
8864 
8865 



8866 
8867 
8866 
6669 

6870 
6871 
6672 
6873 
8874 
8875 
8876 
8877 



045616 
\*5620 
045622 
045622 
045624 
045630 
045632 
045636 
045640 
045642 
045646 
045646 
045650 
045652 
045654 
045656 
045656 
045662 
045664 
045664 
045664 
045666 
045674 
045676 
045702 



045702 
045706 
045710 
045714 
045714 
045714 
045716 



047053 
011710 

104406 
013701 
010102 
052702 
020102 
001406 
004737 

104456 
000534 
046204 
016360 

005137 
001226 



104403 
023727 
002402 
004737 



004737 
103002 
000137 



104432 
003116 



MACRO M1200 



180$: 



045764 
000001 

020116 



046110 

002170 
020170 

0173/2 
031732 



190$; 



APR -84 


08il3 PAGE 111-3 




.WORD 
.WORD 


SEQ 221 

T26W0E 
PKTSSR 


CKLOOP 




tLOOP IF SELECTED 


TRAP 


C$CLP1 


MOV 


T26BFR»14,R1 


»GET XST3 STATUS WORD 






MOV 


R1.R2 


iSET UP EXPECTED 






BIS 


♦6IT0.R2 


iSET THE NEF BIT 






CMP 


R1.R2 


lARE THEY EQUAL 






BEQ 


190$ 


■BR, IF EQUAL (GOOO) 






JSR 


PC.FATCHK 


> INC AND CHECK FOR MORE 


THAN 25 


ERRORS 


ERRHRD 


ERRN0.T26NEF, EXPREC 


iNEF SHOULD BE SET 


TRAP 

.WORD 

.WORD 

.WORD 


C$ERHRD 
346 

T26NEF 
EXPREC 



000031 





COM 
BNE 
ENOSUB 


T26CNU 
26$ 


999 ${ 


CMP 
BLT 

JSR 


FATFLG,#25. 

999$ 

PC.CKDROP 


i 

1 


JSR 

BCC 
JMP 


PC. TS TLOOP 
163$ 

T26L00P 



163$ J 



iSET SWITCH THE OTHER WAY 
|BR t IF FIRST TIME THROUGH 
!%>>>>>>>>>>> eno SUBTEST >>■>>>>>>>>>> 

L10065j 

TRAP CIESUB 
iIS ERROR COUNT AT 25 
iBR. IF LESS THAN 25 
I TRY TO DROP THE UNIT 



»D0 WE NEED TO ITERATE TEST 
I BR. IF NO LOOP REQUIRED 
lEXECUTE AGAIN 



EXIT 



TST 



I ALL DONE THIS TEST 



TRAP 
»UORD 



C$EXIT 
L 10046 -♦ 



K^al'SifcMI 
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SEQ 222 



8879 
8880 
8881 
8885 
8885 
8886 
8887 
8888 
B889 
8890 
8891 
8892 
8895 
8894 
8895 
8896 
8897 
8898 
8900 
8902 
8905 
8904 
8905 
8906 
8908 
8910 
8911 
8912 
8915 
8914 
8915 
8916 
8917 
8918 
8919 
8920 
8921 
8922 
8923 
8924 
8925 
8926 
8927 
8928 
8929 
8930 
8931 
8932 
8933 
8934 
8955 



045720 
045730 
045750 
045732 
045754 
045756 
045740 
045740 
045742 
045744 
045746 
045750 



046052 
046040 
046040 
046042 
046044 
046046 
046050 
046060 
046060 
046062 
046062 
046064 
046066 



046070 
046070 
046071 
046072 
046074 



046076 
046100 
046102 
046104 

046106 
046110 
046112 

046114 



014004 
045 740 
000000 
000012 

045750 
000000 
000024 
000000 



100006 
046070 
000000 
000006 



140005 

003072 
000000 
000000 



010 

200 

000000 

000000 



140001 

141401 
161401 

177777 

000000 
000000 
000000 
000000 



j LOCAL STORAGE FOR THIS TEST 



>BLKB 


10-<.-T 


T26PACKET} 




.WORD 


14004 


.WORD 


T26DATA 


.WORD 





.WORD 


10. 


T26DATA: 




.WORD 


T26BFR 


.WORD 





.WORD 


20. 


.WORD 





T26BFR: ,BLKW 


25. 



» WRITE SUBSYSTEM MEMORY COMMAND PACKET 



J 



T26PK2} 



.BLKB 10*<,-TUV2A£7> 

.WORD 100006 

.WORD T26BF3 

.WORD 

WORD 6 

!BLKB 10-<.-TUV2A&7> 



.WORD 140005 



T26PK3: 

T26RB: 
T26WB: 

T26SZ: 

T268F2 
T26BS0 
T26BS1 
T26S2: 
T26S3: 

.EVEN 
j TAPE MOTION PACKET COMMAND VALUES 

T26RN: .WORD 140001 

.WORD 141401 

.WORD 16140: 

.WORD 177777 

.WORD 

.WORD 

.WORD 

T26DLY: *WQRD 



.WORD 
.WORD 

.WORD 
.EVEN 



.BYTE 
.BYTE 
.WORD 
.WORD 



FREE 







10 
200 





T26CNT 
T26CNU 
T26RSZ 



iCOMMANO PACKET FOR TEST 

, WRITE CHARACTERISTICS COMMAND, WITH CVC-1, ACK 

lADORESS Or CHARACTERISTICS BLOCK 

I STARTING VALUE OF BLOCK SIZE 
iCMARACTERISTICS DATA BLOCK 
I ADDRESS OF MESSAGE BUFTER 

j LENGTH OF MESSAGE BUFFER 

t MESSAGE BUFFER 



iWRITE SL8 SYS MEM COMMAND, ANO ACK 
I ADDRESS OF SELECT BLOCK DATA 

I SIZE OF DATA PACKET 



.REREAD COMMAND, CVC-1 ANO ACK 
lADDRESS OF WRITE BUFFER 
iSIZE OF 31FFER (EXTENT) 



iBSELO AREA 
iBSELl AREA 
iSEL 2 AREA 
i DATA AREA 



iREAO DATA 
jREREAD NEXT ORP-0 
iREREAO NEXT OPP-l 
lENO OF DATA 

l TAPE RECORD COUNTER STORAGE AREA 

» TAPE RECORD COUNTER STORAGE AREA 

iRECORO STORAGE SIZE AREA 
iDELAY COUNTER AREA 







f&¥ GA 2 I K Rl 



8937 
8938 
8039 
8940 
8941 
8942 
8943 
8944 
8945 
8946 
8947 
8948 
8949 
8950 
8951 
8952 
8953 
8954 
8955 
8956 
8957 
8958 
8959 
8960 
8961 
8962 
8963 
8964 
8965 
8966 
8967 
8968 
8969 
8970 
8971 
8972 
6973 
8974 
8975 
8976 
897 7 
8978 
8979 
8980 
8981 
8982 
8983 
8984 
8985 
8986 
8987 
8988 
8989 
8990 
8991 
8992 
9993 



MM 



END FUNC *3 



046116 
046204 
046266 
046335 
046432 
046^27 
046b U 
046661 
046736 
047017 
047053 
047125 
047172 
047260 
047337 
047414 
047463 
047536 
04 7605 
047660 
047750 
050023 
050076 
050151 
050240 
050322 
050404 
0504 72 
050560 
050637 



050650 
050650 
050654 
050660 
050664 
05O670 
050672 
050676 
050702 
050704 
050710 
050712 
050716 
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SEQ 223 



124 
122 

124 
122 
122 
120 
122 
124 
111 
122 
124 
124 
104 
122 
124 
122 
122 
124 
104 
124 
124 
103 
124 
127 
122 
122 
122 
122 
104 
122 



141 
105 
123 
105 
105 
117 
111 
123 
154 
105 
123 
141 
141 
105 
123 
145 
101 
123 
162 
123 
123 
126 
123 
122 
145 
145 
145 
145 
141 
145 



160 
122 
123 
122 
122 
123 
102 
123 
154 
122 
123 
160 
164 
122 
123 
167 
115 
123 
151 
123 
123 
103 
102 
111 
141 
141 
163 
141 
164 
162 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
0127U 
012702 



045730 
140004 

045740 

000012 

045750 

000024 

000000 
000030 



i LOCAL TEXT MESSAGES FOR TEST 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.EVEN 



Tap* Position Incorrect After REREAD Previous COPP-1) 4 

REREAD PREVIOUS, At BOT. Failed To Set NEF (XSTO)' 

TSSR Incorrect After REAO DATA Command' 

REREAD Previous (Space Revere*, R*ed Forward) Command Fa Had 1 

REREAD Pravioua (Raad Ravaraa, Space Forward) Command Failed 1 

POSITION CSpeca Command') Fa? lad. TSSR Not Corract' 

RIB NOT SET AFTER READ REVERSE INTO BOT' 

TSSR Not Corract After Illegal Mod* Bita Set' 

Illegal Moo* Bite. Failed To Set ILC Bit In XSTO' 

REREAD COMMAND Not Accepted' 

TSS« Not Correct After URITE DATA Command' 

Tap* Not At BOT Aft*r REWIND Command' 

Data Written To Tap* Not Equal To Data Read From Tap*' 

REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT' 

TSSR Not Correct After REREAD COMMAND Reject' 

Rewind (POSITION) Command Not Accepted' 

RAM Error. Correct Data Pattern Not In Ram' 

TSSR Init. Failed After REREAD COMMAND* 

Drive 7 Select Failed To Set "OFL" In TSSR' 

TSSR Not Correct After REREAD DATA Command. SW8 Bit Set' 

TSSR Not Correct After REREAD DATA Command' 

CVC Set. Didn"t Reset VCK In Message Buffer' 

TSBA Not Correct After REREAD DATA Command' 

WRITE SUBSYSTEM MEMORY Command Not Accepted CRAM Read)' 

Reading Long, Record Failed To Set RLL Bit In XSTO' 

Reading Lono. Record Failed To Set RLS Bit In XSTO' 

Residual Byte Count Incorrect After Short Record Rtad' 

Reading Long Record Failed To Give Tape Statu* Alert' 

Data REREAD From Tape Not Correct. After SWB-1' 

ASCIZ 'Reread*' 



T26WNG 

T26NEF 

T26RDF 

T26RRF 

T26RRG 

T26SC: 

T26L0R 

T26W0F 

T26L0Q 

T26SSR 

T26W0E 

T2680T 

T260TA 

T26E0T 

T26TM: 

T26RWN 

T26RNC 

T26AM3 

T260FL 

T26W00 

T26WDC 

T26VCK 

T26BA: 

T26WSS 

T26L0N 

T26L0P 

T26P8P 

T26TRL 

T^6NEQ 

TST26ID: 

i ♦ 

jROUTINE TO RESTORE COMMAND PACKET TO START -UP (DEFAULT) VALUES 
i WRITE SUBSYSTEM MEMORY COMMAND 



l 
i - 




T26RESTi 




SAVREG 




MOV 


#T26PACKET,R1 


MOV 


#140004, (Rl)» 


MOV 


#T26DATA t (Rl)* 


CLR 


(Ri)* 


MOV 


#10. ,(R1)» 


MOV 


#T26BFR,(R1)» 


CLR 


(Rl)* 


MOV 


#20. ,(R1)» 


CLR 


(Rl)» 


MOV 


#0,(R1) 


MOV 


#a4.,R2 



I SAVE THE REGISTERS 

, START OF THE PACKET 

iWRITE SUBSYSTEM MEM. WITH ACK , CVC-1 

I ADDRESS OT CHARAISTICS DATA BLOCK 

lEXTENOEO ADDRESS 

I SIZE Of DATA BLOCK IN BYTES 

j ADDRESS OF MESSAGE BUFFER 

»LENGTH OF MESSAGE BUFFER 

j SELECT DRIVE ZERO (0) 

I NUMBER OF LOCATIONS TO BE CLEARED 



E$¥ ba 2 I k r&SBS END FUNC " 



6994 
6995 
8996 
8997 
8998 
8999 
9000 
9001 
9O02 
9005 
9004 
9005 
9006 
900? 
9008 
9009 
9010 
9011 
9012 
9015 
9014 
9015 
9016 
9017 
9018 
9019 
9020 
9021 



050722 
050730 
050752 
050756 
050740 



050742 
050742 
050746 
050752 
050756 
050762 
050764 
050770 
050772 
050776 
051000 
051002 
051004 
051004 
051010 
051014 
051020 
051024 
051026 
051052 
051054 
051054 
051054 



012762 
005742 
020227 
001571 
000207 



012701 
012721 
012721 
005021 
012721 
005021 
012701 
005021 
005011 
0O0207 



012701 
012721 
012721 
005021 
012711 
000207 



104401 



177777 
000000 



046040 
140006 
046070 

00OOO6 

046070 



046060 
000000 
OOOOOO 

000000 
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045750 64$; 



T26RT2: 



T26RT5; 



MOV 
TST 
CMP 
BNE 
RTS 



SAVREG 

MOV 

MOV 

MOV 

CLR 

MOV 

CLR 

MOV 

CLR 

CLR 

RTS 

SAVREG 

MOV 

MOV 

MOV 

CLR 

MOV 

RTS 

ENOTST 



*177777,T26BFRCR2) 

-CR2) 

R2»*0 

64$ 

PC 



♦T26PK2.R1 

*140006 ,(R1)* 

OT26BF2.CR1)* 

CRD* 

*6.,(RD* 

CRD* 

*T26BF2,R1 

CRD* 

CRD 

PC 



*T26PK5,R1 
•O.CRD* 
#0,CRD* 
CRD* 

*0,CR1) 
PC 



SEQ 224 



I ALL ONES TO MESSAGE BUFFER 

iNEXT LOCATION 

I CHECK FOR ENO OF LOOP 

I KEEP GOING UNTIL DONE 

I RETURN 



I SAVE THE REGISTERS 

I START OF THE PACKET 

lURITE SUBSYSTEM MEM. WITH ACK.CVOl. 

j ADDRESS OF DATA BLOCK 

I EXTENDED ADDRESS 

j SIZE OF DATA BLOCK IN BYTES 

j POINT TO DATA SEL AREA 



I RETURN 

I SAVE THE REGISTERS 
I START OF THE PACKET 
jWRITE SUBSYSTEM MEM. WITH ACK , 
I ADDRESS OF DATA BLOCK 
lEXTENOED ADDRESS 
j SIZE OF DATA BLOCK IN BYTES 
j RETURN 



L10046: 



TRAP 



C*ETST 



F2 



CZTKGA TK-25 FRT END FUNC 03 
TEST 3: WRITE DATA RETRY 

9023 
9024 
9025 
9026 
9027 
9028 
9029 
9030 
9031 
9032 
9033 
9034 
9035 

9036 
9037 
9038 
9039 
9040 
9045 
9046 
9047 
9048 
9049 
9050 
9051 
9052 
9053 
9054 
9055 
9056 
9057 
9058 
9059 
9060 
9061 
9062 
9063 



051036 
051036 
051036 
051042 
051046 
051054 
051060 
051064 
051070 
051074 
051102 



005037 
005037 
012737 
005037 
0O4737 
012700 
0O4737 
012737 
005037 



9064 
9065 
9066 
9067 
9068 
9069 
9070 
9071 
907? 
9073 
9074 
90 75 
90/6 
9077 
9078 



051106 
051106 
051106 
051106 
051110 
051114 
051120 
051124 
051132 



104402 
004737 
0O4737 
0O4 737 
012737 
005037 



051136 
051 142 
051144 
051144 
051150 
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,SBTTL TEST 3} WRITE DATA RETRY 



SEQ 225 



002170 
003100 
005771 
003102 
020262 
060633 
017424 
000001 
055676 



002146 



002164 



060654 
060746 
061010 
176750 
055676 



THIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY 
COMMAND CSPACE REVERSE, ERASE, WRITE DATA) 



THE TEST CONSISTS OF THE FOLLOWING 5 SUBTESTS 



BGNTST 



CLR 


FATFLG 


CLR 


KTFLG 


MOV 


♦EPRT2.EPRTSW 


CLR 


K TENABLE 


JSR 


PC.KTOFF 


MOV 


♦TST27ID.R0 


JSR 


PC.TSTSETUP 


MOV 


•l.LOOPCNT 


CLR 


T27CNT 



T3:: 
l CLEAR FATAL ERROR FLAG 
I HOLD OFF KT11 

I SECONDARY ERROR MESSAGE 

I TURN OFF KT11 

I TURN KT11 BACK OFF IF THF.RF 

I ASCII MESSAGE TO IDENTIFY TEST 

jDO INITIAL TEST SETUP 

jPERFORM 1 ITERATIONS 

I CLEAR TAPE RECORD COUNTER 



j TEST 3, SUBTEST 1 
I 

jVERIFIES THAT A WRITE DATA RETRY COMMAND ISSUED WHILE 
j THE TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT 
j TERMINATION, WITH THE NON-EXECUTABLE FUNCTION (NF.F) 
, ERROR BIT SET, 



055702 



l - 




T27L00P: 

BGNSUB 




JSR 
JSR 
JSR 

MOV 
CLR 


PC.T27REST 

PC,T2 7 RT2 
PC.T27RT3 
065000. .T27DLY 
T27CNT 



;%%>>>>>>>>>> BEGIN SUBTEST >>>*>>>>>>>> 

T3.1: 

TRAP CSBSU8 
i SET COMMAND PACKET 
l SET UP OTHER COMMANO PACKET 
;SET UP OTHER COMMANO PACKET 
i SET UP DELAY COUNTER 
; CLEAR COUNTER 

j****************************************************************** 
} 

j ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 

j************************* ****** *********************************** 



004737 016660 
103426 

012 ^2/ 000250 
000000 



lOt: 



JSR 
BCS 
DELAY 



PC.SOFINIT 

20$ 

250 



I DO INITIALIZE ON CONTROLLER 

i BR IF INIT WAS QK 

j DELAY ABOUT , t 3 SEC 

MOV 
♦ WORD 



0250, (PC)* 




w**] K &Ti*i»Wim n 



9079 
9080 
9081 
9085 
9086 



9087 
9088 
9089 
9090 
9091 
9092 
9093 
9094 
9095 
9096 
9097 
9098 
910? 
9103 



9104 

9105 
9106 
9107 
9108 
9109 
9110 
9111 
9112 
9113 
9114 
9115 
9119 



9i;>o 

9121 
9122 
9125 
91*4 



051152 
051156 
051160 

051164 
051166 
051172 
051174 
051200 
051202 
051206 
051210 
051210 
051212 
051214 
051216 
051220 
051220 



051224 
051230 
051232 
051236 
051240 
051240 
051242 
051244 
051246 
051250 
051250 



051252 

051256 
051260 
051262 
051266 
051266 
051270 
051272 
051274 
051276 
051276 



013727 002116 

000000 

005367 177772 

001375 

005367 177756 

001367 

005337 055702 

001356 

004737 020116 

010001 

104455 
000455 
003550 
011676 

012704 055520 



004 737 
103407 
004737 
010001 

104456 
000456 
004 754 
011676 

104406 



004737 
103407 
010004 
004737 

104456 
000457 
057055 
011710 

104406 



010342 
020116 



010444 
020116 
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SEQ 226 


MOV 


LIOLY.CPO* 


.WORD 





DEC 


-6CPC) 


BNE 


.-4 


DEC 


-22CPC) 


BNE 


.-20 



DEC 


T27DLY 


BNE 


10$ 


JSR 


PC.FATCHK 


MOV 


RO.fU 


ERRDF 


ERRNO, SFIERR, SFIMSG 



20$: 



MOV 



♦T27PACKET.R4 



i DUMP COUNTER 

jBR, IF COUNTER NOT DONE 

l INC ANO CHECK FOR MORE THAN 25 ERRORS 

l CONTENTS OF TSSR REGISTER 

j FATAL ERROR TSSR WAS NOT OK 

TRAP CIERDF 
.WORD 301 
.WORD SFIERR 
.WORD SFIMSG 

I SUBROUTINE NEEDS PACKET ADDRESS 



I ************************** ************************* ******** *** *<M>* 

I 

{WRITE CHARACTERISTICS COMMAND (CALL TO WT.iCHR) 

t ********************** ************************* ******************* 



25$ j 



JSR PC.WRTCHR 

BCS 25$ 

JSR PC.FATCHK 

MOV R0.R1 

ERRHRD ERRNO , WRTMSG , SF IMSG 



CKLOOP 



j ISSUE WRITE CHARACTERISTICS 

jBR, IF COMMANO ISSUED OK 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

I SAVE CONTENTS OF TSSR 

j WRITE CHARACTERISTIC FAILED 

TRAP CIERHRD 
. WORD 302 
.WORD WRTMSG 
.WORD SFIMSG 

j LOOP IF SELECTED 

TRAP C$CLP1 



ISSUE REWIND COMMANO TO SELECTED TAPE DRIVE 
****************************************************************** 



30$; 



JSR PC, REWIND 

BCS 30* 

MOV R0.R4 

JSR PC.FATCHK 

ERRHRD ERRNO, T27RWN.PKTSSR 



CKLOOP 



; CALL TAPE REWIND COMMAND 

l BR. IF NO PROBLEM 

j SET UP REWINO PACKET ADDRESS 

jINC ANO CHECK FOR MORE THAN 25 ERRORS 

I REWINO NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 

I LOOP IF SELECTED 

TRAP 



C$ERHRD 
303 

T27RWN 
PKTSSR 



C$CLP1 



( *****************+******************* ***************************** 
iREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 



WSI^tI^PrSW m 



9125 
9126 
9127 
9126 
9129 
9130 
9131 
9132 
9133 
9137 



9136 

9139 
9140 
9141 
9142 
9143 
9144 
9145 
9146 
9147 
9148 
9149 
9150 
9151 
9152 
9153 
9154 
9155 
9156 
9160 



9161 

91b? 
9163 
9164 
9U5 
9166 
Ml 6 7 
9168 
9169 
9170 
9171 
9172 
9173 
91/4 

9i/a 



051300 
051304 
051306 
051312 
051314 
051316 
051322 
051322 
051324 
051326 
051330 
051332 
051332 
051334 
051342 



051350 
051356 
051362 
051366 
051372 
051376 
051402 
051404 
051406 
051412 
051412 
051414 
051416 
051420 
051422 
051422 



051424 

051430 
051432 
051436 
051440 
051442 
051446 
OM44c> 
051450 



013701 
010102 
052702 
020102 
001' 16 
004737 

104456 
000460 
056551 
016360 

104406 
012737 
013737 



012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000461 
056462 
011710 

104406 



013/01 
010102 
052/02 
020102 
001406 
004 737 

104456 
000462 



055546 
000002 

020116 



000400 
003072 



141005 
055650 
177776 
017134 
OOOOOO 
100206 



020116 



055546 
002000 



020116 



H2 
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t 

j****************************************************************** 

jPICK UP XSTO 

»SET UP EXPECTED 

jSET BOT BIT IN EXPECTED 

jDOES EXP - REC'D 

j BR. IF EQUAL (OK) 

l INC AND CHECK FOR MORE THAN 25 ERRORS 

tTAPE NOT AT BOT AFTER REWINO 

TRAP CiERHRD 
.UOPD 304 
.WORO T27BOT 
.UORD EXPREC 
40$; CKLOOP jLOOP IF SELECTED 

TRAP CJCLP1 
I SET UP RECORD SIZE 
i ADDRESS OF WRITE BUFFER 



MOV 


T27BFR*6,R1 


MCV 


R1.R2 


B'= 


•6IT1.R2 


tin' 


R1.R2 


BEQ 


40$ 


JSR 


PC.FATCHK 



ERRHRD ERRNO , T27B0T , EXPREC 



055656 
055652 



CKLOOP 

MOV 
MOV 



0256..T27SZ 
FREE.T27W8 



j ****************************************************************** 

i 

{WRITE DATA RETRY .ACK.CVC-1 COMMAND 

l 

I ****************************************************************** 

055650 MOV 0141005. T27PK3 i WHITE DATA RETRY ,ACK .CVC-1 COMMANO 

l SET UP R4 WITH PACKET ADDRESS 
» ISSUE COMMAND 
iWAIT FOR SSR TO SET 
jGET TSSR CONTENTS 
;SET UP EXPECTED 
jARE THEY EQUAL 
tBR. IF OK 

;INC ANO CHECK FOR MORE THAN 25 ERRORS 
ERRHRD ERRNO, T27WDE.PKTSSR j TSSR INCORRECT AFTER READ DATA 



MOV 


0141005. T27PK3 


MOV 


OT27PK3.R4 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


♦SSR!SC!BIU!BIT2.R2 


CMP 


R1.R2 


BEQ 


75$ 


JSR 


PC.FATCHK 



75$ 



CKLOOP 



i LOOP IF SELECTED 



TRAP 


C$ERHRD 


.WORD 


305 


.WOPD 


T27W0E 


.WORD 


PKTSSR 



TRAP C$CLPl 

****************************************************************** 

READ MESSAGE BUFFER EXTENOED STATUS REGISTER ZERO (XSTO) 

****************************************************************** 

jGET XSTO STATUS WORD 

j SET UP EXPECTED 

jSET THE NEF BIT 

I ARE THEY EQUAL 

j BR, IF EQUAL (G')OD) 

j INC ANO CHECK FOR MORE THAN 25 ERRORS 

j NEF SHOULD BE SET 

TRAP CtERHRO 
,WURD 306 



MOV 


T27BFR*6,R1 


MOV 


R1.R2 


BIS 


06IT10.R2 


CMP 


R1.R2 


BEQ 


170$ 


JSR 


PC.FATCHK 



ERRHRD ERRNO , T27NEF , EXPREC 



CZTKGA TK-25 FRT END FUNC 03 
TEST 3: WRITE DATA RETRY 
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SEU 228 





051452 


060221 




OS 1454 


016360 


9179 


051456 




9iao 


051456 
051456 






051456 


104403 


9181 


051460 


023727 


918*} 


051466 


002402 


918;; 


0514 70 


004 737 


9184 


051474 





170$ 



002170 000031 
020170 



999$ 



ENDSU6 



CMP 
BLT 
JSR 



FATFLG,#25. 

999$ 
PC.CKDROP 



.UORD 
.WORD 



L 10067: 

TRAP 
{IS ERROR COUNT AT 25 
jBR, IF LESS THAN 25 
j TRY TO DROP THE UNIT 



T27NEF 
EXPREC 



C$ESU6 



CZTKGA TK 25 FRT END FUNC 03 
TEST 3 : WRITE DATA RETRY 



9186 
9187 
9188 
9189 
9190 
9191 
919? 
9193 
9194 
9195 
9196 
9197 
9198 
9199 



9200 
9201 
9202 
9203 
9204 
9205 
9206 
9207 
9208 
9209 
9210 
9211 
9212 
9216 
9217 



9218 
9219 
9220 
9221 
9222 
9223 
9224 
9225 
9226 
922/ 
9228 
9229 
9233 
9234 



9235 

9236 
9257 



051474 
051474 
051474 
051476 
051502 
051506 



051512 
051516 
051520 
051524 
051526 
051526 
051530 
051532 
051534 
051536 
051536 



051542 
051546 
05.1550 

051554 
051556 
051556 
051560 
051562 
051564 
051566 
051566 



104402 
004 737 
004737 
004737 
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SEU 229 



060654 
060746 
061010 



016660 
020116 



004 737 
103407 
004737 
010O01 

104455 
000463 
003550 
011676 



012704 055520 



004737 010342 

10340/ 

004 7 37 020116 

010O01 

104456 
000464 
004 754 
011676 

104406 



jTEST 3, SUBTEST 2 

j VERIFIES THAT WRITE DATA RETRY COMMANO ISSUED WHILE 
I THE TAPE IS POSITIONED BEFORE THE FIRST RECORD ON 
l TAPE (BUT NOT AT BOT) RESULTS IN TAPE STATUS ALERT 
i TERMINATION, WITH THE REVERSE INTO BOT (RIB) STATUS 
j ERROR BIT SET. 
i 



i - 



BGNSUB 



JSR 


PC.T27REST 


JSR 


PC.T27RT2 


JSR 


PC.T27RT3 



{>>>>>>>>>>>> BEGIN SUBTEST >>>>>>% * > -> •> > 

T3.2; 

TRAP CJBSUB 

{SET CO*1AN0 PACKET 
iSET UP 0TI€R COMMANO PACKET 
I SET UP OTHER C0f*1AN0 PACKET 

; ISSUE CONTROLLER "SOFT" INITIALIZE CARRY BIT CLEAR IF ERROR 

! 

lDO INITIALIZE ON CONTROL! Ett 

l BR IF INIT WAS OK 

j INC AND CHECK FOR MORE THAN 25 ERRORS 

»CONTENTS OF TSSR REGISTER 

{FATAL ERROR TSSR WAS NOT OK 

TRAP C$ERDf 
.WORD 307 
.WORD Sf'IERR 
.WORD SFIMSG 



JSR 


PC.SOFINIT 


BCS 


201 


JSR 


PC.FATCHK 


MOV 


R0.R1 


ERRDF 


ERRNO, SF'IERR ♦ Sf'IMSG 



20*: 



MOV 



♦T27PACKET.R4 



{SUBROUTINE NEEDS PACKET ADDRESS 



jURITF. CHARACTERISTICS COMMAND (CALL TO WRTCHR) 



!* + 



•A***************************************************************** 



JSR PC.WRTCHR 

BCS 25$ 

JSR PC.FATCHK 

MOV R0.R1 

ERRHRD ERRNO, WRTMSG* SFIMSG 



25$: Ol OOP 

j * # * * # * ^ + A * #.# t- *******•********■<(** + * i 



{ISSUE WRITE CHARACTERISTICS 

j BR, IF COMMAND ISSUED OK 

j INC AJk> CHECK FOR MORE THAN 25 ERRORS 

I SAVE CONTENTS Of" 1 SSR 

{WRITE CHARACTERISTIC FAILED 

TRAP 
.WORD 
.WORD 
WORD 

{LOOP IF SELECTED 

TRAP 



CIEHHRD 
308 

WRTMSG 
SFIMSG 



C*CLP1 



CZTKGA IK 25 FRT FND FUNC 43 
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SEQ 230 



9238 
9239 
924 
9241 
9242 
9243 
9244 
9;'. 4 5 
'i. .'46 
924 7 
9251 



9252 

9253 
9254 
9255 
9256 
9257 
9258 
9259 
9260 
9261 
9262 
9263 
9264 
9265 
9266 
9267 
9268 
9269 
9270 
9271 
92/5 
92/6 
9277 

9278 



9279 

9280 
9281 
9282 
9283 
9284 
9285 
9286 
928 7 
9288 
9289 
9290 



051570 
051574 
051576 
051600 
051604 
051610 
051610 
051612 
051614 
051616 
051620 
051620 
051622 
051626 



051634 
051642 
051646 
051652 
051656 
051662 
051666 
051672 
051674 
051676 



051/02 
051702 
051704 
051706 
051710 
051712 
051712 



051/14 
051/20 
051722 
01)1726 



004737 
103411 
010004 
016501 
004737 

104456 
000465 
057055 
011710 

104406 
012703 
013737 



010444 



000000 
020116 



000400 
003072 



012737 
012704 
010337 
010*65 
004737 
016501 
012702 
020102 
001406 
004737 



104457 
000466 
005011 
011710 

104406 



140005 
055650 
055656 
177776 
017134 
000000 
000200 



020116 



004/37 
105411 
016501 
010004 



010444 
OOOOQO 



055652 



055650 



i ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

jCALL TAPE REWINO COMMAND 

j BR. IF NO PROBLEM 

{SET UP REUINO PACKET ADDRESS 

iGET TSSR CONTENTS 

j INC AND CHECK FOR MORE THAN 25 ERRORS 

j REWIND NOT ACCEPTED 

TRAP C$ERHRD 
.WORD 309 
.WORD T27RWN 
.WORD PKTSSR 
26$: CKLOOP jLOOP IF SELECTED 

TRAP C$CLP1 
j STARTING RECORD SIZE 

i STARTING WRITE BUFFER ADDRESS 



JSR 


PC, REWIND 


BCS 


26$ 


MOV 


R0.R4 


MOV 


TSSRfR5),Rl 


JSR 


PC.FATCHK 



ERRHRD ERRNO , T27RWN , PK TSSR 



CKLOOP 

MOV 
MOV 



0256, ,R3 
FREE.T27WB 



{ **************************************** ******** ********** +4 ****** 

JwRITE DATA.CVC-l.ACK COMMANO 
S 

;**************************************************************+*** 

{WRITE DATA.CVC-l.ACK COMMAND 

{SET UP R4 WITH PACKET ADDRESS 

i SET UP RECORD SIZE IN PACKET 

I ISSUE COMMANO 

lUAIT FOR SSR TO SET 

jGET TSSR CONTENTS 

j SET UP EXPECTED 

{ARE THEY EQUAL 

j BR. IF OK 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 

j SOFT ERROR GENERATED BECAUSE THt 

i WRITE COMMANO IS NOT BEING CHECKED 

{HERE. IT WAS CHECKED IN LEAH2 

I TSSR INCORRECT AFTER WRITE DATA 

TRAP CIERSOFV 
.WORD 310 
.WORD UP TERR 
.WORD PKTSSR 
28$: CKLOOP (LOOP IF SELECTED 

TRAP C$CLP1 



MOV 


#140005 t T27PK3 


MOV 


$T27PK3,R4 


MOV 


R3.T27SZ 


MOV 


R4.TSDBCR5) 


vISR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


#SSR,R2 


CMP 


R1.R2 


BEQ 


28$ 


JSR 


PC.FATCHK 



ERRSUFT ERRNO, WRTERR, PKTSSR 



j*******.*********************************** ************************ 

! ISSUE REUINO COMMAND TO SELECTED TAPE DRIVE 

I 

j ************************************************************* ***** 

iCALL TAPE REWIND COMMAND 

{BR. IF NO PROBLEM 

jGET TSSR CONTENTS 

l SET UP REWIND PACKET ADDRESS 



JSR 


PC. REWIND 


BCS 


30$ 


MOV 


TSSR(R5)»R1 


MOV 


R0.R4 



CZTKGA TK-25 FRT FND FUNC #3 
TEST 3; WRITE DATA RETRY 



L2 
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SEQ 231 



9291 
9295 



9296 

9297 
9298 
9299 
9300 
9301 
9302 
9303 
9304 
9305 
9306 
9307 
9308 
9309 
9313 



9314 

9315 
9316 
9317 
9318 
93 IS 
9320 
9321 
9322 
9323 
9324 
9325 
9326 
9327 
9328 
9329 
9333 



9334 



051730 
051734 
051734 
051736 
051740 
051742 
051744 
051744 



051746 
051752 
051754 
051760 
051762 
051764 
051770 
051770 
051772 
051774 
051776 
052000 
052000 



004737 020116 

104456 
000467 
057055 
011710 

104406 



013 701 055546 



052702 
020102 
001406 
004737 

104456 
0004 70 
056551 
016360 

104406 



052002 012703 

052006 004737 

052012 103413 

052014 016501 

052020 012702 

052024 010004 

052026 004737 
052032 

052032 104456 

052034 0004 71 

052036 060317 

052040 011710 
052042 

052042 104406 



000002 



020116 



O00001 
010144 

000000 
000200 

020116 



30*: 



JSR PC.KATCHK 

ERRHRD ERRNO , T27RWN , PKTSSR 



CKLOOP 



I INC AND CHECK FOR MORE THAN 25 ERRORS 

{REWIND NOT ACCEPTED 

TRAP C$ERHRD 

.WORD 311 

.WORD T2 7RWN 

.WORD PKTSSR 

I LOOP IF SELECTED 

TRAP CJCLP1 



;*********************************************************** ******* 

!READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 

( 

. ******** ********************************************************** 

{PICK UP XSTO 

j SET UP EXPECTED 

j SET BOT BIT IN EXPECTED 

jDOES EXP - REC'D 

l BR, IF EQUAL (OK) 

jINC AND CHECK FOR MORE THAN 25 ERRORS 

{TAPE NOT AT BOT AFTER REWIND 

TRAP C*ERHRD 
.WORD 312 
.WORD T27B0T 
.WORD EXPREC 
40$; CKLOOP {LOOP IF SELECTED 

TRAP C$CLP1 



MOV 


T27BFR*6,R1 


MOV 


R1.R2 


BIS 


*eiTl,R2 


CMP 


R1.R2 


BEQ 


40$ 


JSR 


PC.FATCHK 



ERRHRD ERRNO , T27B0T , EXPREC 



} ******************************************************** ********** 

ISSUE. SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 
BIT 15 SETS DIRECTION - 0-FORWARD 1-REVERSE 

****************************************************************** 

{PARAMETER SPACE FORWARD 1 RECORD 

{CALL SPACE RECORDS ROUTINE 

j BR, IF NO ERRORS 

{GET TSSR CONTENTS 

{SET UP EXPECTED 

{SET UP REWINO PACKET ADDRESS 

j INC AND CHECK FOR MORE 1 HAN 25 ERRORS 

{SPACE RECORDS COMMANO FAILED 

TRAP C$ERHRD 
.WORD 313 
.WORD T27SCF 
.WORU PKTSSR 
50$; CKLOOP iLGGP IK SELECTED 

TRAP CtCLPl 



MOV 


01. R3 


JSR 


PC, SPACE 


BCS 


50$ 


MOV 


TSSRCR5),R1 


MOV 


0SSR.R2 


MOV 


R0.R4 


JSR 


PC.FATCHK 



ERRHRD ERRNO, T27SCF, PKTSSR 
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SEQ 232 



9336 

933 7 
9338 
9339 
9340 
9341 
934? 
9343 
9344 
9345 
9346 

934 7 
9348 
9349 
9353 



9354 
9355 



052044 
052050 
052054 
052056 
052062 
052066 
052070 
052074 
052074 
052076 
052100 
052102 
052104 
052104 
052106 



012703 
004737 
103413 
016501 
012702 
010004 
004737 

104456 
0004 72 
060317 
011710 

104406 
013737 



100001 
010144 

000000 
000200 

020116 



003072 055652 



; *************************** ***********.********* + ***** ************* 

•ISSUE SPACE RECORDS COMMAND - VALUE IN R3 SETS NUMBER OF RECORDS 

jBIT 1.5 SETS DIRECTION 0-FORWARO 1 -REVERSE 

i 

I ****** ***************** ******************************************* 

jPARAMETER SPACE REVERSE 1 RECORD 

I CALL SPACE RECORDS ROUTINE 

I BR. IF NO ERRORS 

jGET TSSR CONTENTS 

i SET UP EXPECTED 

{SET UP REWIND PACKET ADDRESS 

j INC AND CHECK FOR MORE THAN 25 ERRORS 

{SPACE RECORDS COMMAND FAILED 

TRAP CIERHRD 
.WORD 314 
.WORD T27SCF 
.WORD PKTSSR 
60$: CKLOOP jt.OOP IF SELECTED 

TRAP C*CLP1 
j ADDRESS OF BUFFER 



MOV 


4100001.R3 


JSR 


PC, SPACE 


BCS 


60$ 


MOV 


TSSR(R5),R1 


MOV 


0SSR.R2 


MOV 


R0.R4 


JSR 


PC.FATCHK 



ERRHRD ERRN0.T27SCF, PKTSSR 

CKLOOP 

MOV FREE.T27RB 



C/TKGA TK-25 FRT END FUNC 03 
TEST 3: WRITE DATA RETRY 



9357 
9558 
9359 
9360 
9361 
9362 
9363 
9364 
9365 
9366 
9367 
9368 
9369 
9370 
9371 
9372 
9376 



V377 

S/378 
93/9 

9580 
9381 
9382 
9383 
9387 



93R8 
9389 



9390 
9391 
9392 
9393 



052114 
052122 
052130 
052134 
052140 
052144 
052150 
052154 
052156 
052160 
052164 
052164 
052166 
052170 
052172 
052174 
052174 
052176 
052202 
052204 
052210 
052212 
052214 
052220 
052220 
052222 
052224 
052226 
052230 
052230 
052230 
052230 
052232 
052240 
052242 
052246 



012737 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
0004 73 
060374 
011710 

104406 
013701 
010102 
052702 
020102 
001406 
004737 

104456 
0004 74 
060221 
016360 



104403 
023727 
002402 
004737 



141005 
000400 
055650 
177776 
017134 
000000 
3 00204 



02C L6 



055554 
000001 

020116 
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SLU 233 



I ********* ************** ***************************************** * 4 



l 



055650 
055656 



WRITE DATA RETRY .ACK.CVOl COMMAND 
********************************************************** ***** *.** 

j WRITE DATA RETRY ,ACK .CVC-1 COMMAND 

I SET UP THE SIZE OF R'-CORD 

I SET UP R4 WITH PACKET ADDRESS 

j ISSUE COMMAND 

j WAIT FOR SSR TO SET 

j GET TSSR CONTENTS 

{SET UP EXPECTED TAPE STATUS ALERT 

; ARE THEY EQUAL 

j BR, IF OK 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

jTSSR INCORRECT AFTER READ DATA 



MOV 


0141005, T27PK3 


MOV 


0256..T27SZ 


MOV 


0T27PK3.R4 


MOV 


R4.TS0BCR5) 


JSR 


PC.UAITF 


MOV 


TSSR(R5),R1 


MOV 


*SSR»SC!BIT2,R2 


CMP 


R1.R2 


BEQ 


180$ 


JSR 


PC.FATCHK 


ERRHRD 


ERRN0.T27TSA.PKTSSR 



180$ 



CKLOOP 



MOV 


T27BFR*14,R1 


MOV 


R1.R2 


BIS 


OBIT0.R2 


CMP 


R1.R2 


BEQ 


190$ 


JSR 


PC.FATCHK 



ERRHRD ERRNO , T27NEF , EXPREC 



190$ 



ENDSUB 



002170 
020170 



000031 



999$ 



CMP 


FATFLG,*25, 


ei t 


999$ 


JSR 


PC.CKUROP 



jLOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



C$ERHRD 
315 

T27TSA 
PKT5SR 

C$CLP1 



{GET XST3 STATUS WORD 

{SET UP EXPEC! 

;SET THE RIB Bit 

{ARE THEY EQUAL 

{BR. IF EQUAL (GOOD) 

;INC ANO CHECK FOR MC.4E THAN 25 ERRORS 

)NEF SHOULD BE SET 

TRAP C$ERHRD 

.wor<D 316 

.U0RD T27NEF 
.WORD EXPREC 

. >>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 

L 10070: 

TRAP C$ESUB 
IS ERROR COUNT AT 25 
BR. IF LESS THAN 25 
TRY TO DROP THE UNIT 



CZTKGA TK-25 FRT ENO FUNC 05 
TEST 3: WRITE DATA RETRY 



9595 
9396 
9397 
9398 
9399 
9400 
9401 
9402 
9403 
940 ^ 
9405 
9406 
9407 
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SEQ 234 



9408 
9409 
9410 
9411 
9412 
9415 
9414 
9415 
9416 
9417 
9418 
9419 
9420 
9424 
9425 



9426 
9427 
9428 
9429 
9430 
9431 
9432 
9433 
9434 
9435 
9436 
9437 
9441 
9442 



9443 

9444 
9445 
9446 



052246 
052246 
052246 
052250 
052254 
052260 



♦ ♦ 



TEST 3, SUBTEST 3 

VERIFIES THAT A WRITE DATA RETRY COMMAND WITH SWB-0 
TERMINATES PROPERLY AND WRITES CORRECT DATA ON TAPE 
(THE WRITTEN RECORD IS READ ANO CHECKED). VARIOUS 
BYTE COUNTS ANO DATA PATTERNS ARE USED, 



052314 
052320 
052322 
052326 
052330 
052330 
052332 
052534 
052336 
052340 
052540 



104402 
004737 
004737 
004737 



060654 
060746 
061010 



BGNSU8 



JSR 

JSR 
JSR 



PCT27REST 

PC.T27RT2 

PC.T27RT3 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T3.3: 

TRAP CIBSUB 
I SET COMMANO PACKET 
(SET UP OTHER COMMANO PACKET 
I SET UP OTHER COMMAND PACKET 









! ISSUE 


CONTROLLER "SOFT" INITIALIZE 


CARRY BIT CLEAR IF ERROR 


052264 


004737 


016660 




JSR 


PC.SOFINIT 




iDO INITIALIZE ON CONTROLLER 


052270 


103407 






BCS 


20$ 




iBR IF INIT WAS OK 


052272 


004737 


020116 




JSR 


PCFATCHK 




lINC AND CHECK FOR MORE THAN 25 ERRORS 


052276 


010001 






MOV 


R0.R1 




iCONTENTS OF TSSR REGISTER 


052300 








ERRDF 


ERRNO.SFIERR.SFIMSG 




l FATAL ERROR TSSR WAS NOT OK 


052300 


104455 












TRAP CtERDF 


052302 


000475 












.WORD 517 


052304 


003550 












,WORO SFIFRR 


052306 


011676 












.WORD SF1M5G 


052310 






201 j 










052310 


012704 


055520 




MOV 


OT27PACKET.R4 




iSlGROUTINE NEED5 PACKET ADDRESS 








jWRITE 


CHARACTERISTICS COMMAND (CALL 


TO 


WRTCHR) 



004737 
103407 
004737 
010001 

104456 
000476 
004 754 

011676 

104406 



010542 
020116 



23*s 



JSR 
BCS 

JSR 
MOV 
ERRHRD 



CKLOOP 



PC, WRTCHR 

23< 

PCFATCHK 

RO,Rl 

ERRNO.WRTMSG.SFIMSG 



iISSUE WRITE CHARACTERISTICS 

iBR, IF COMMAND ISSUED OK 

i INC ANO CHECK FOR MORE THAN 25 ERRORS 

i SAVE CONTENTS OF TSSR 

iWRITE CHARACTERISTIC FAILED 

TRAP CIERHID 

.WORD 316 
.WORO WRTMSG 
.WORD 5FIMSG 

jLOOP IF SELEC1F0 

TRAP aCLPl 



) *****4444****4444***4444444*** 4*44 4444***4*444***4*44444 ********** 
J 



CZTKGA TK-25 FMT ENO TUNC 03 
TEST 3: WRITE DATA RETRY 



9447 
9448 
9449 
9450 
9451 
9452 
9453 
9454 
9458 



C3 
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SEQ 235 



9459 

9460 
9461 
946.? 
9463 
9464 
9465 
9466 
9467 
9468 
9469 
9470 
9471 
94 72 
9476 



9477 

9478 
9479 
9480 
9481 
9482 
9483 
9484 
9485 
9486 
9487 
9488 
9489 
9490 
9491 
9492 
9493 
9494 
9495 
9496 
9497 
9498 
9502 



052342 
052346 
052350 
052352 
052356 
052356 
052360 
052362 
052364 
052366 
052366 



052370 
052374 
052376 
052402 
052404 
052406 
052412 
052412 
0524 14 
052416 
052420 
052422 
052422 
052424 
052430 



052436 
052444 
052450 
052452 
052456 
052462 
052466 
052472 
0524 76 
052502 
052504 

052506 



004737 
103407 
010004 
004737 

J04456 
000477 
057055 
011710 

104406 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
000500 
056551 
016360 

104406 
012703 
013737 



012737 
012 704 
010300 
004737 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
004 737 



I ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 



I* 



010444 



020116 



JSR 


PC, REWIND 


BCS 


30$ 


MOV 


R0.R4 


JSR 


PC.FATCHK 


ERRHRD 


ERRN0.T27RWN.PKTSSR 



301: 



CKLOOP 



I CALL TAPE REWIND COMMANO 

I BR. ir NO PROBLEM 

iSET UP REWIND PACKET ADDRESS 

tINC AND CHECK FOR MORE THAN 25 ERRORS 

i REWIND NOT ACCEPTED 

TRAP CIERHRD 
.WORD 319 
.WORD T27RWN 
.WORD PKTSSR 

lLOOP IF SELECTED 

TRAP CtCLPl 



055546 
000002 

020116 



000024 
003072 



055652 



)*******+**********************+*********************************** 

iREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 

I ************************** *************** ************************* 

iPICK UP XSTO 
i SET UP EXPECTED 
iSET BOT BIT IN EXPECTED 
I DOES EXP - REC'D 
»BR, IF EQUAL (OK) 

,INC AND CHECK FOR MORE THAN 25 ERRORS 
j TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORO 
40* i CKLOOP jLOOP IF SELECTED 

TRAP 
jSTARTING RECORD SIZE 
ISTARTING WRITE BUFFER ADDRESS 



MOV 


T27BFR*6,R1 


MOV 


R1.R2 


BIS 


•BIT1.R2 


CMP 


R1.R2 


BEQ 


40$ 


JSR 


PC.FATCHK 



ERRHRD ERRNO , T27B0T , EXPREC 



CKLOOP 

MOV 
MOV 



♦20.. R3 
FREE.T27W6 



CIERHRO 
320 
T27B0T 
EXPREC 

CICLP1 



,***«* *************** ******* ** ***************************** ******** 

, WRITE DATA.CVC-l.ACK COMMAND 

i 

, ****************************************************************** 



140005 
055650 

020410 
055656 
177776 
017134 
000000 
000200 



0201X6 



055650 65 it 



MOV 


♦140005. T27PK3 


MOV 


♦T27PK3.R4 


MOV 


R3.R0 


JSR 


PC.FILLMEM 


MOV 


R3.T27SZ 


MOV 


R4,TSD8(R5) 


JSR 


PC.WA1TF 


MOV 


TSSR(R5),R1 


MOV 


♦SSR.R2 


CMP 


R1.R2 


BEQ 


803 


JSR 


PC*FATCHK 



iWRITE DATA.CVC-l.ACK COMMANO 

I SET UP R4 WITH PACKET ADDRESS 

j SET PATTERN IN CORRECT REGISTER 

iFILL MEMORY WITH RECORD SIZE 

i SET UP RECORD SIZE IN PACKET 

I ISSUE COMMANO 

iWAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

,SET UP EXPECTED 

I ARE THEY EQUAL 

iBR, IF OK 

i INC ANO CHECK FOR MORE THAN 25 ERRORS 

I SOFT ERROR GENERA TED BECAUSE THE 



D* 
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SEQ 256 



9503 
9504 
9505 



9506 

9507 
9508 
9509 
9510 
9511 
9512 
9513 
9514 
9515 
9516 
9517 
9518 
9519 
9520 
9521 
9525 



9526 

952 7 
9528 
9529 
9530 
9531 
9532 
9533 
9554 
9535 
9536 
9537 
9536 
9539 
9540 
9544 



9545 

9546 
9547 

J518 

9V-9 
9550 



052512 
052512 
052514 
052516 
052520 
052522 
052522 



052524 
052532 
052536 
052542 
052546 
052552 
052554 
052556 
052562 
052562 
052564 
052566 
052570 
052572 
052572 
052574 
052576 
052602 



052604 
052610 
052612 
052614 
052620 
052620 
052622 
052624 
052626 
052630 
052630 



104457 
000501 
005011 
011710 

104406 



80$; 



ERRSOFT ERRNO, WRTERR, PKTSSR 



CKLOOP 



jWRITE COMMAND IS NOT BEING CHECKED 
iHErtE. IT WAS CHECKED IN LEAH2 
iTSSR INCORRECT AFTER WRITE DATA 

TRAP CIERSOFT 



jLOOP IF SELECTED 



.WORD 
.WORD 
.WORD 

TRAP 



321 

WWTERR 

PKTSSR 

OCLP1 



012737 141005 055650 

010465 177776 

0O4737 017134 

016501 000000 

012702 000200 

020102 

001406 

004737 020116 

104456 
000502 
060456 

011710 

104406 

005723 

020327 000050 

001315 



I ****************************«**+***************************.. '***+* 

iWRITE DATA RETRY .CVOl.ACK COMMAND 

I ****************************************************************** 

» WRITE DATA RETRY .CVC-l.ACK COMMAND 

i ISSUE COMMAND 

I WAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

j SET UP EXPECTED 

I ARE THEY EQUAL 

I BR, IF OK 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

j TSSR INCORRECT AFTER WRITE DATA RETRY 

TRAP CtERHRD 
. WORD 322 
.WORD T27WRF 
WORD PKTSSR 
90$ j CKLOOP j LOOP IF SELECTED 

TRAP CfCLPl 

,BUMP RECORD SIZE COUNTER 

jAT 40 SIZE YET 

{BR, IF MORE RECORDS TO WRITE 



MOV 


*141005 t T27PK3 


MOV 


R4,TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5).R1 


MOV 


♦SSR.R2 


CMP 


R1.R2 


BEQ 


901 


JSR 


PC.FATCHK 



ERRHRD ERRNO . T27WRF , PKTSSR 



TST 


(R3)* 


CMP 


R3.*40. 


BNE 


651 



,«********** 



ISSUE REWIND COMMANO TO SELECTED TAPE DRIVE 



004737 010444 

103407 

010001 

0O4737 020116 

104456 
000503 
05 7055 
016360 

104406 



JSR 


PC, REWIND 


BCS 


2301 


MOV 


RO.ni 


JSR 


PC.FATCHK 



ERRHRD ERRNO , T27RWN . EXPREC 



230*t CKLOOP 



j CALL TAPE REWIND COMMANO 

I BR, IF NO PROBLEM 

j SAVE TSSR 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 

iREWINO NOT ACCEPTED 



jLOOP IF SELECTED 



TRAP 


CIERHRD 


.WORD 


323 


.WORD 


T27RWN 


.WORD 


EXPREC 



TRAP 



CSCLPl 



I 



jREAD MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO (XSTO) 

J 



CZTKGA TK-25 FRT END FUNC *3 
TEST 3: WRITE DATA RETRY 
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SEQ 237 



9551 
9552 
9553 
9554 
9555 
9556 
9557 
9558 
9562 



9563 

9564 
9565 
9566 
9567 
9568 
9569 
9570 
9571 
9572 
9573 
9574 
9575 
9576 
9577 
9578 
9579 
9580 
9581 
9582 
9586 



9587 

9588 
9589 
9590 
9591 
9592 
9593 
9594 
9595 
9596 
9600 



9601 



052632 
052636 
052640 
052644 
052646 
052650 
052654 
052654 
052656 
052660 
0526S2 
052664 
052664 
052666 
052672 



052700 
052706 
052712 
052716 
052722 
052726 
052732 
052736 
052740 
052742 
052746 
052746 
052750 
052752 
052754 
052756 
052756 
052760 
052764 
052766 
052772 
052774 
052776 
053000 
053002 
0530O4 
053010 
05301.0 
053012 
053014 
053016 
053020 
053020 



013701 
010102 
052702 
020102 
001406 
004737 

104456 

000504 
056551 
016360 

104406 
012703 
013737 



012737 
012704 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000505 
005104 
011710 

104406 
013702 
010304 
162704 
060204 
021403 
001410 
011401 
010302 
004737 

104456 
000506 
060536 
016360 

104406 



j***444 4*4 *4*4444*4*4**+4*44444+**4****4** ********** 4**********444* 



055546 
000002 

020116 



MOV 


T27BFR*6,R1 


MOV 


R1.R2 


BIS 


♦6IT1.R2 


CMP 


R1.R2 


BEQ 


240$ 


JSR 


PC.FATCHK 


ERRHRD 


ERRN0,T27B0T, EXPREC 



000024 
003072 



055652 



240$: CKLOOP 

MOV 
MOV 



020..R3 
FREE.T27RB 



i PICK UP XSTO 

j SET UP EXPECTED 

i SET BOT BIT IN EXPECTED 

j DOES EXP - REC'D 

jBR. IF EQUAL COK) 

{INC ANO CHECK FOR MORE THAN 25 ERRORS 

l TAPE NOT AT BOT AFTEfl REWINO 

TRAP 
.WORD 
.WORD 
.WORD 

I LOOP IF SELECTED 

rn.rtp 

I STARTING RECORD SIZE 

» STARTING READ BUFFER ADDREb. 



CIERHRD 
324 

T27B0T 
EXPREC 

CICLP1 



I ********************** 4*44****** ********** ********** ************** 

J 

I READ DATA.ACK COMMAND 

J 

j ****4^A* ******* 4444* 44 ******** 44*44*4*44 4 4*** ********** 4 ********** 



100001 
055650 
055656 
177776 
017134 
000000 
000200 



020116 



055650 265$j 



MOV 


♦100001, T27PK3 


MOV 


JT27PK3.R4 


MOV 


R3.T27SZ 


MOV 


R4,TSD6CR5) 


JSR 


PC.UAITF 


MOV 


TSSR(R5).R1 


MOV 


♦SSR.R2 


CMP 


R1.R2 


BEQ 


280$ 


JSR 


PC.FATCHK 


ERRHRD 


ERRNO.RDERR.PKTSSR 



I READ DATA.ACK COMMAND 

j SET UP R4 WITH PACKET ADDRESS 

j SET UP RECORD SIZE IN PACKET 

i ISSUE COMMAND 

iWAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

j SET UP EXPECTED 

j ARE THEY EQUAL 

iBR. IF OK 

j INC ANO CHECK FOR MORE THAN 25 ERRORS 

j TSSR INCORRECT AFTER READ DATA 



003072 
000024 



280$ 



>85$ 



020116 



290* 







TRAP 


CIERHRD 






.WORD 


325 






.WORD 


RDERR 






.WORD 


PKTSSR 


CKLOOP 




lLOOP IF SELECTED 








TRAP 


C$CLP1 


MOV 


FREE.R2 


iGET BUFFER ADDRESS 




MOV 


R3.R4 


j GET RECORD SIZE 




SUB 


*20, ,R4 


jPOINT BACK TO 1ST RECORD 




ADD 


R2.R4 


jPOINT TO 1ST LOC IN BUFFER 




CHP 


CR4),R3 


iDATA WRITTEN - READ 




BEU 


290$ 


iBR. IF DATA OK (GOOO) 




MOV 


(R4),R1 


jPICK UP BAD DATA 




MOV 


R3.R2 


iSET UP EXPECTED 




JSR 


PC.FATCHK 


jINC ANO CHECK FOR MORE THAN 25 


ERRORS 


ERRHRD 


ERRN0.T27DTA, EXPREC 


» DATA IN BUFFER NOT CORRECT 








TRAP 


CJERHRD 






.WORD 


326 






.WORD 


T27DTA 






.WORD 


EXPREC 


CKLOOP 




jLOOP IF SELECTED 

TRAP 


CJCLPl 



F^ 



CZTKGA TK-2! 
TEST 3: wfr 



FRT 



JE DATA RETRY 



03 MACRO M1200 20-APR-64 08:13 
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9602 053022 005724 

9603 053024 160204 

9604 053026 02O403 

9605 053030 001360 

9606 053032 005723 

9607 053034 020327 000050 

9608 053040 001317 

9609 053042 300$: 
053042 104406 

9610 053044 330$} 

9611 053044 
053044 
053044 104403 

9612 053046 023727 002170 000031 

9613 053054 002402 

9614 053056 004737 020170 

9615 053062 999$ : 



TST 

sue 

CMP 
BNE 
TST 
CMP 
BNE 
CKLOOP 



ENOSUB 



CR4)* 

R2.R4 

R4.R3 

2851 

CR3)* 

R3,*40, 

265$ 



CMP 


FATFLG.025. 


BLT 


999$ 


JSR 


PC.CKDROP 



SEQ 238 



jBUMP TO NEXT ADDRESS 

I BACK TO RECORD SIZE 

,AT ENO OF RECORD YET 

I BR. IF MORE DATA TO CHECK 

iBUHP RECORD SIZE 

,D0NE YET 

iBR, IF NOT DONE YET (MORE READS) 

{LOOP IF SELECTED 

TRAP C$CLP1 

j >>>>>>>>>>>> ENO SUBTEST >>>>>>>>>>>> 

L 10071: 

TRAP C$ESUB 
iIS ERROR COUNT AT 25 
i BR, IF LESS THAN 25 
;TRY TO DROP THE UNIT 



fi 



:tkga TK-25 frt END KUNC 03 
:ST 3; WftlTE DATA RETRY 



9617 
9618 
9619 
9620 
9621 
9622 
9623 
9624 
9625 
9626 
9627 
9628 
9629 
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SEQ 239 



9630 
9631 
9632 
9633 
9634 
9635 
9636 
9637 
9638 
9639 
9640 
9641 
9642 
9643 



053062 
053062 
053062 
053064 
053070 
053074 
053100 



104402 
004737 
004737 
004737 
012737 



9644 

9645 
9646 
9650 
9651 



9652 
9653 
9654 
9655 
9656 
965/ 
9658 
9659 
9660 
9661 
9662 



053106 
053112 
053114 
053114 
053120 
053122 
053126 
053130 
053134 
053136 
053142 
053144 
053150 
053152 
053156 
053160 
053160 
053162 
053164 
053166 
053170 
053170 



053174 
053200 



060654 
060746 
061010 
176750 



055702 



004737 
103426 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001356 
004737 
010001 

104455 
000507 
003550 
011676 



012704 055520 



016660 

000250 
002116 
177772 
177756 
055702 
020116 



i ► 

{TEST 3, SUBTEST 4 

{VERIFIES THAT A WRITE DATA RETRY COMMANO WITH SWB-1 
{TERMINATES PROPERLY ANO WRITES CORRECT DATA ON TAPE 
j (THE WRITTEN RECORD 15 READ AND CHECKED), VARIOUS 
{BYTE COUNTS AND DATA PATTERNS ARE USED. 

i 
J 



BGNSUB 



JSR 
JSR 
JSR 
MOV 



PC.T27REST 
PC.T27RT2 
F'C, T27RT3 

*65000. .T27DLY 



,>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T3.4: 

TRAP CSBSUB 
{SET COMMAND PACKET 
{SET UP OTHER COMMANO PACKET 
jSET UP OTHER COMMANO PACKET 
I SET UP DELAY COUNTER 



{********************* ********************* *************** 4******** 

llSSUE CONTROLLER "SOFT" INITIALIZE • CARRY BIT CLEAR IF ERROR 

I 

I *************** ********* A* **************************************** 



10$: 



JSR 


PC.SOflNIT 


BCS 


20$ 


DELAY 


250 



DEC 


T27DLY 


BNE 


10$ 


JSR 


PC.FATCHK 


MOV 


R0.R1 


ERRDF 


ERRNO.SFIERR.SFIMSG 



20*: 



MOV 



I DO INITIALIZE ON CONTROLLER 

iBR IF INIT WAS OK 

{DELAY ABOUT .25 SEC 

MOV 

.WORD 

MOV 

.WO«D 

DEC 

BNE 

DEC 

BNE 

{BUMF COUNTER 

j BR, IF COUNTER NOT DONE 

j INC AND CHECK FOR MORE THAN 25 ERROPS 

iCONTENTS OF TSSR REGISTER 

j FATAL ERROR TSSR WAS NOT OK 

TRAP CIERDF 
.WORD 327 
.WORD SFIERR 
,WO«D SFIMSG 

j SUBROUTINE NEEDS PACKET ADDRESS 



*250.(PC). 


LIDLY.CPC)* 


-6CPC) 
. 4 

-22CPC) 
.-20 



0T27PACKET.R4 

****************************************************************** 

WRITE CHARACTERISTICS COMMAND (CALL. TO WRTCHR) 

****************************************************************** 



004/57 
103407 



010342 



JSR 
BCS 



PC, WRTCHR 
23$ 



;ISSUE WRITE CHARACTERISTICS 
I BR, IF COMMAND ISSUED OK 



m G ^ K $tt%W»Wi « 



MACRO M1200 



H3 
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SEQ 240 



9663 
9667 
9668 



9669 

9670 
9671 
9672 
9673 
9674 
9675 
9676 
9677 
9676 
9679 
9680 
9681 
9685 



9686 

9687 
9688 
9689 
9690 
9691 
9692 
9693 
9694 
9695 
9696 
9697 
9698 
9699 
9703 



9704 

9705 
9706 

9/0 7 
9/08 
9709 
9/10 
9/11 
9/1? 
9713 



053202 
053206 
053210 
053210 
053212 
053214 
053216 
053220 
053220 



053222 
053226 
053230 
053234 
053236 
053242 
053242 
053244 
053246 
053250 
053252 
053252 



053254 
053260 
053262 

053266 
053270 
053272 
053276 
053276 
053300 
053302 
053304 
053306 
053306 
0M310 
053314 



004 73/ 
010001 

104456 
000510 
004 754 
011676 

104406 



020116 



004737 010444 

103411 

016501 000000 

010004 

004737 020116 

104456 
000b U 
0570:>5 
011710 

104406 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
000512 
056551 
016360 

104406 

012703 
013737 



055546 
000002 

020116 



000024 
003072 



055652 



23$: 



JSR PC.FATCHK 

MOV R0.R1 

ERRHRD ERRNO, WRTMSG.SFIMSG 



CKLOOP 



j INC AND CHECK FOR MORE THAN 25 ERRORS 

i5AVE CONTENTS OF TSSR 

, WRITE CHARACTERISTIC FAILED 

TRAP CIERHRO 

.WORD 328 

.WORD WRTMSG 

.WORD SFIMSG 

j LOOP IF SELECTED 

TRAP C$CLP1 



j **.:.***************************************** ********************** 

; 

i ISSUE REWIND COMMANO TO SELECTED TAPE DRIVE 

J 

;****************.*************.***********************.************** 

j CALL TAPE REWIND COMMANO 

I BR, IF NO PROBLEM 

jGET TSSR CONTENTS 

j GET PACKET ADDRESS 

l INC AND CHECK FOR MORE THAN 25 ERRORS 

l REWIND NOT ACCEPTED 

TRAP CIERHRO 
.WORD 329 
.WORD T27RWN 
.WORD PKTSSR 
301: CKLOOP jLOOP IF SELECTED 

TRAP C*CLP1 



JSR 


PC, REWIND 


BCS 


301 


MOV 


TSSR(R5),R1 


MOV 


R0.R4 


JSR 


PC.FATCHK 



ERRHRD ERRNO , T27RWN , PKTSSR 



j***** ********************************* ..*************************** 

I 

jREAD MESSAGE BUFFER EXTENOED STATUS REGISTER ZERO CXSTO) 

j****************************************************************** 

iPICK UP XSTO 

iSET UP EXPECTED 

j SET BOT BIT IN EXPECTED 

iDOES EXP - REC'D 

iBR, IF EQUAL (OK) 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 

I TAPE NOT AT BOT AFTER REWIND 

TRAP CtERHRD 
.WORD 330 
.WORD T27B0T 
.WORD EXPKF.C 
40$: CKLOOP jLOOP IF SELECTED 

trap c*cun 

j STARTING RECORD SIZE 

l STARTING WRITE BUFFER ADDRESS 



MOV 


T27BFR»6.R1 


MOV 


R1.R2 


BIS 


*eiTl,R2 


CMP 


R1.R2 


BEQ 


40$ 


JSR 


PC.FATCHK 



ERRHRD ERRNO, T27B0T .EXPREC 



CKLOOP 

MOV 
MOV 



#20. ,H3 
FREE,*27WB 



I****************************************************************** 

i 

jWRITE DATA,CVC«1,ACK CONMANO 

i 

l****************************************************************** 



13 



CZTKGA TK 25 FRT END FUNC 03 
TEST 3: WRITE DATA RETRY 
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SEQ 241 



9714 
9715 
9716 
9717 
9718 
9719 
9720 
9721 
9722 
9723 
9724 
972b 
9729 
9730 
9731 
9732 



9733 

9734 
9735 
9736 
9737 
973g 
9739 
9740 
9741 
9742 
9743 
9744 
9745 
9746 
9747 
9748 
9752 



9753 

9/54 
9 755 
9756 
9757 
9758 
9759 
9760 
9761 
9762 
9763 
9764 
9765 
9766 



053322 
053330 
053334 
053336 
053342 
053346 
053352 
053356 
053362 
055366 
053370 
053372 



053376 
053376 
0534 00 
053402 
053404 
053406 
053406 



053410 
053416 
053422 
053426 
055432 
053436 
055440 
055442 
055446 
053446 
053450 
053452 
053454 
055456 
053456 
055460 
053462 
053466 



053470 
0534 74 
053476 



012737 
012704 
010300 
004737 
010337 
010465 
004757 
016501 
012702 
020102 
001406 
004737 



104457 
0OO5i3 
005011 
011710 

104406 



012737 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000514 
060456 
016360 

104406 
005723 
020327 
001315 



004/3/ 
103411 
016501 



140005 
055650 

020410 
055656 
177776 
017134 
000000 
000200 



020116 



055650 65$; 



MOV 0140005, T27PK3 

MOV 0T27PK3,R4 

MOV R3.R0 

JSR PCFILLMEM 

MOV R3.T275Z 

MOV R4,TSDBCR5) 

JSR PC.WAITF 

MOV TSSR(R5),R1 

MOV 0SSR.R2 

CMP R1.R2 

beq not 

JSR PC,FATCHK 



ERRSOFT ERRNO.WRTERR.PKTSSR 



80$: 



CKLOOP 



jWRITE DATA,CVC-1,ACK command 

I SET UP R4 WITH PACKET ADDRESS 

j SET PATTERN IN CORRECT REGISTER 

{FILL MEMORY WITH RECORD SIZE 

j SET UP RECORD SIZE XN PACKET 

j ISSUe COMMANO 

>WAIT FOP SSR TO SET 

iGET TSSR CONTENTS 

iSET UP EXPECTED 

j ARE THEY EQUAL 

?BR, IF OK 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

i SOFT ERROR GENERATED BECAUSE THE 

l WHITE COMMAND IS NOT BEING CHECKED 

jHERE, IT WAS CHECKED IN LEAH2 

j TSSR INCORRECT AFTER WRITE DATA 

TRAP C$ERSOFT 
.WORD 331 
.WORD WRTERR 
.WORD PKTSSR 

iLOOP IF SELECTED 

TRAP C$CLPl 



111005 
177776 
017134 
OOOOOO 
000200 



020116 



055650 



MOV 


0111005, T27PK3 


MOV 


R4.TSD3(R5^ 


JSR 


PCWAITF 


MOV 


T5SR(R5),R1 


MOV 


0SSR.R2 


CMP 


R1.R2 


BEQ 


90$ 


JSR 


PC.FATCHK 



000050 



j**************************************** ************************** 

IwRITE DATA RETRY ,ACK , SW6-1 COMMAND 

{ 

;*******»***********************.********************************** 

iWRITE DATA RETRY ,ACK,SW6"1 COMMAND 

j ISSUE COMMAND 

I WAIT FOR SSR 10 SET 

jGEI TSSR CONTENTS 

j SET UP EXPECTED 

j ARE THEY EQUAL 

j BR, IF OK 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 

jVSSR INCORRECT AFTER WRITE DATA RETRY 

TRAP C$ERHRD 
.WORD 33? 
„UORD T27WRF 
.WORD EXPREC 
90$: CKLOOP jLOOP IF SELECTED 

TRAP C$CLP1 

i BUMP RECORD SIZE COUNTER 

jAT 40 SIZE YET 

iBR, IF MORE RECORDS 10 WRITE 

j ********* **** ****** *********************************************** 

J 

I ISSUE REWIND COMMANO TO SELECTED TAP! DRIVE 

i ********* a ********* * ********************************************** 



ERRHRD ERRNO , T27WRF , EXPREC 



TST 


(R3)» 


CMP 


R3.040, 


BNE 


65$ 



010444 
OOOOOO 



JSR PC, REWIND 

BCS 230$ 

MUV TSSRtR5),Rl 



iCAU. TAPE REWIND COMMAND 
;BR, IF NO PROBLEM 
I GET TSSR CONTENTS 



CZTKGA TK-25 FRT END FUNC $3 
TEST 3: WRITE DATA RETRY 



9767 


053502 


010004 




9768 


053504 


004737 


020116 


9772 


053510 








053510 


104456 






053512 


000515 






053514 


057055 






053516 


011710 




9773 


053520 








053520 


104406 




9774 








9775 








9776 








9777 








9778 








9779 








9780 








9781 


053522 


013701 


055546 


9782 


053526 


010102 




9783 


053530 


052702 


000002 


9784 


053534 


020102 




9785 


053536 


001406 




9786 


053540 


0O4737 


020116 


9790 


053544 








053544 


104456 






053546 


000516 






053550 


056551 






053552 


016360 




9791 


053554 








053554 


104406 




9792 


053556 


012703 


000024 


9793 


053562 


013737 


003072 


9794 








9795 








9 796 








9797 








9/98 








9799 








9800 








9801 


053570 


012737 


100001 


9802 


053576 


012704 


055650 


9803 


053602 


010337 


055656 


9804 


053606 


010465 


177776 


980b 


053612 


004737 


017134 


9806 


053616 


016501 


OOOOOO 


9807 


053622 


012/02 


000200 


9808 


053626 


020102 




9809 


053630 


001406 




S810 


053632 


0O4737 


020116 


9814 


053636 








053636 


104456 






053640 


000517 






053642 


005104 






053644 


011710 




9815 


053646 








053646 


104406 




9616 


053650 


013 702 


00307* 


9817 


053654 


010304 





J3 
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055652 



hOV R0.R4 

JSR pp FATCHK 

ERRHRD ERRN0,T27RWN,PKTSSR 







SEQ 242 


j GET PACKET ADDRESS 






iINC AND CHECK FOR MORE 


THAN 25 


ERRORS 


i REWIND NOT ACCEPTED 








TRAP 


CiERHRD 




.WORD 


333 




.WORD 


T27RWN 




.WORD 


PKTS5R 


j LOOP IF SELECTED 


TRAP 


CJCLPl 



230$: CKLOOP 



i *4************44*4 + 4444********* + ***********4********4*4* + 4+**4*<- + 

{READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CXSTO) 

J 

j 44 4 *<* 4 * 4 * ** * *** * * * * * 4 * 4 4 * * ** 444 4 44 * 4 * * 4 4 * * * * * * 4 * * * * * * 4 * 44 * * * 4 * * * * 

{PICK UP XSTO 
j SET UP EXPECTED 
I SET BOT BIT IN EXPECTED 
i DOES EXP - REC'D 
j BR, IF EQUAL (OK) 

l INC ANO CHECK FOR MORE THAN <17, ERRORS 
j TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
240$: CKLOOP {LOOP IF SELECTED 

TRAP 
, STARTING R ORD SIZE 
s STARTING RtAD BUFFER ADDRESS 



MOV 


T?7BFR>6,R1 


MOV 


R1.R2 


BIS 


*6IT1,R2 


CMP 


R1.R2 


BEQ 


240$ 


JSR 


PC, FATCHK 



ERRHRD ERRN0.T27B0T.EXPREC 



CKLOOP 

MOV 
MOV 



420. ,R3 
FREE.T27RB 



CJERHRD 
334 

T27B0T 
EXPREC 

C$CLP1 



; 4444*4444 4*4 44444 444*4 444444 444444444444444444*4**4 4**44444*44***4 

;READ DATA.ACK COMMANO 

i 

.444***4****44*4**** **<;::. *44* ************************* *****444444444 



055650 265$ j 



MOV 


0100001, 127PK3 


MOV 


OT27PO.R4 


MOV 


R3.T27SZ 


MOV 


R4.TSDBCR5) 


JSR 


HC.WAITK 


MOV 


TSSR(R5),R1 


MOV 


*SSR,R2 


CMP 


R1.R2 


BEQ 


280 5 


JSR 


PC, FATCHK 



ERRHRD ERRNO,RDERR,PKTSSR 



280$: 



CKLOOP 

MUV 
MOV 



f REE.R2 
R3.R4 



j READ DATA.ACK COMMAND 




jSET UP R4 WITH PACKET ADDRESS 




;SET UP RECORD SIZE IN PACKET 




l ISSUE COMMAND 




;WAIT FOR SSR TO SET 




iGET TSSR CONTENTS 




{SET UP EXPECTED 




j APE THEY EQUAL 




jBR. IF OK 




{INC ANO CHECK FOR MORE THAN 25 


ERRORS 


{TSSR INCORRECT AFTER READ DATA 




TRAP 


CJERHRD 


.WORD 


335 


WORD 


RDERR 


.UORD 


PKTSSR 


j LOOP IF SELECVED 




TRAP 


CSCLP1 


(GET BUFFER ADDRESS 




jGET RECORD SIZE 





CZTKGA TK-2S FRT END FUNC 03 
TEST 3; WRITE DATA RETRY 



9818 
9819 
9820 
9821 
9832 
9823 
9824 
9825 
9829 



9S30 

9831 
9832 
9833 
9834 
9835 
9836 
9837 
9838 
9839 

9840 



98 U 
9842 
9843 
9844 
9845 



053656 
053662 
053664 
053666 
053670 
053672 
053674 
053676 
053702 
053702 
053704 
053706 
053710 
053712 
053712 
053714 
053716 
053720 
053722 
053724 
053726 
053730 
053734 
053736 
053736 
053740 
053740 
053740 
053742 
053750 
053752 
053756 



162704 
060204 
000303 
02.1403 
001410 
011401 
010302 
004737 

104456 
000520 
0o0536 
016360 

104406 
005724 
160204 
000303 
020403 
001356 
005723 
020327 
001315 

104406 



104403 
023727 
002402 
004737 



000024 



020116 





l<3 
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sue 


420. ,R4 


285$: ADD 


R2,R4 


SWAB 


R3 


CMP 


(R4),R3 


BEQ 


290$ 


MOV 


CR4),R1 


MOV 


R3.R2 


JSR 


PC.FATCHK 


ERRHRD 


ERRN0,T27DTA,EXPREC 



290*: CKLOOP 



000046 



300$: 



002170 000031 
020170 



TST 


( R4 ) ♦ 


SUB 


R2,R4 


SWAB 


R3 


CMP 


R4.R3 


BNE 


285* 


TST 


CR3)* 


CMP 


R3,#3Q, 


BNE 


265$ 


CKLOOP 





ENDSUB 



999$: 



CMP 


FATFLG,#25. 


BLT 


999$ 


JSR 


PC.CKDROP 



SEQ 243 



j POINT BACK TO 1ST RECORD 
I POINT TO 'ST LOC IN BUFFER 
iSWAP BYTES SWB"1 ETC. 
iDATA WRITTEN - READ 
I BR, IF DATA OK (GOOD) 
j PICK UP BAD DATA 
j SET UP EXPECTED 

l INC AND CHECK FOR MORE THAN 25 ERRORS 
j DATA IN BUFFER NOT CORRECT 

TRAP 



j LOOP IF SELECTED 



.WORD 
.WORD 
.WORD 

TRAP 



CJERHRD 

336 

T27DTA 

EXPREC 

C*CLP1 



j BUMP TO NEXT ADDRESS 

jBACK TO RECORD SIZE 

i PUT R3 BACK INTO SHAPE 

i AT END CF RECORD YET 

I BR, IF MORE DATA TO CHECK 

jBUMP RECORD SIZE 

iDONE YET 

;BR. IF NOT DONE. YET (MORE 

lLOOP IF SELECTED 

TRAP 

,>>>>>>>>>>>> end SUBTEST 

1.10072: 

TRAP 

j IS ERROR COUNT AT 25 
{BR, IF LESS THAN 25 
;TRY TO DROP THE UNIT 



READS > 

C$CuPl 

C$ESUti 



CZTKGA TK-25 FRT END TUNC 03 
TEST 5: WRITE DATA RETRY 



984? 
9848 
9849 
9850 
9351 
9852 
9853 
9854 
9855 
9856 
9857 
9858 
9P.59 
9860 
9861 
9862 
9863 
9864 
9865 
9866 
9867 
9860 
9869 
9870 
9871 
98/2 
9873 
9874 
9875 
9876 
987 7 
9878 
9879 
9880 
9881 
9882 
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SEU 244 



9883 
9884 
9885 
9886 
9887 
Q 888 
9889 
9890 
9891 
9892 
9893 
9894 
9895 
9896 
989/ 
9898 
9899 



053756 
053756 
053756 
053760 
053/64 
0537/0 
053774 
054000 
054004 
054010 



104402 
005037 
005037 
005037 
004737 
004 737 
004 737 
012737 



002172 
055676 
055700 
060654 
060746 
061010 
176750 



055702 



054016 
054022 
054024 
054024 
054030 



004737 
103426 

012/2/ 
000000 



016660 



000250 



;TEST 3, SUBTEST 5 

I 

t VERIFIES THAT A WRITE DATA RETRY COMMAND IS 
{PERFORMING THE "ERASE" PART OF THE OPERATION BY 
{PERFORMING THE FOLLOWING SERIES OE STEPS. 



«1. 

J 
i 
j 
i 
{2. 



3. 



4. 



5. 



THE TAPE IS REWOUND AND A SERIES OF RECORDS ARE 
WRITTEN WITH THE NORMAL WRITE DATA COMMAND. THIS 
SHOU.D RESULT IN RECORDS SEPARATED BY THE 
STANDARD INTERRECORD GAP. 

A PROGRAM TIMING VAUJE IS CALIBRATED BY REWINOING 
THE TAPE ANO THEN CONUTING THE NUMBER OF CYCLES 
THROUGH A PROGRAMMED LOOP REQUIRED TO SPACE OVER 
THE SERIES OT RECORDS WRITTEN IN PREVIOUS 
STEP 

THE TAPE IS AGAIN REWOUND ANO THE SAME SERIES OF 
RECORDS WRITTEN AGAIN, THIS TIME USING THE, WRITE 
DATA RETRY COMMAND. THIS SHOULD RESULT IN 
RECORDS SEPARATED BY A LONG INTERRECORD GAP. 

THE TAPE IS AGAIN REWOUND, THE SPACING COMMAND 
ISSUED, AND THE NUMBER OF TIMMING LOOP CYCLES 
COUNTED TO COMPLETE THE. OPERATION. 

THE TWO LOOP COUNTS ARE COMPARED, CHECKING TO SEE 
THAT THEY DIFFER BY A SIGNIFICANT AMOUNT. 



I - 



BGNSUB 



.>>>>>>>>>>>> BEGIN SUBTEST >>>>^ >> > > > > > 

T3.5: 

TRAP C*BSUB 

{INTERRUPT INOICATOR 
{TIMER FOR WRITE DATA SPACING 
{TIMER FOR WRITE DATA RETRY SPACING 
{SET COMMAND PACKET 
{SET UP OTHER COMMAND PACKET 
{SET UP OTHER COMMAND PACKET 
{SET UP DELAY COUNTER 

, ISSUE CONTROLLER "SOFT" INITIALIZE - CARRY BIT CLEAR IF ERROR 

;*****+***++**+***+*+*+***+******************* t ***++♦******* ******* 



CLR 


INTRECV 


CLR 


T27CNT 


CLR 


T27CNU 


JSR 


PC.T27REST 


JSR 


PC.T27RT2 


JSR 


PC.T27RT3 


MOV 


A65000. , T27DLY 



10*: 



JSR 
BCS 
DELAY 



PC.SQFINIT 
20$ 



jOO INITIALIZE ON CONTROLLER 
{BR IF INIT WAS OK 
{DELAY ABOUT ,25 SEC 

MOV 
.WORD 



<?250,(PC) + 




CZTKGA TK-25 FRT END FUNC « 
TEST 3: WRITE DATA RETRY 



M3 



9900 
9901 
9902 
9906 
9907 



9908 
9909 
9910 
9911 
9912 
9915 
9914 
9915 
9916 
9917 
9918 
9919 
9920 
9924 
9925 



9926 

9927 

9928 
9929 
9930 
9931 
9932 
9933 
9934 
9935 
9936 
9937 
9938 
9942 



9943 

9944 
994b 



054032 
054036 
054040 
054044 
054046 
054052 
054054 
054060 
054062 
054066 
054070 
054070 
054072 
054074 
054076 
054100 



013727 
000000 
005367 
001375 
005367 
001367 
005337 
001356 
004737 
010001 

104455 
000521 
003550 
011676 



054104 
054110 
054112 
054116 
054120 
054120 
054122 
054124 
054126 
054130 
054130 



054132 
054136 
054140 
054144 
054146 
054152 
054152 
054154 
054156 
054160 
054162 
054162 



002116 
177772 
177756 
055702 
020116 



054100 012704 055520 



004737 010342 

103407 

004737 020116 

010001 

104456 
000522 
004754 
011676 

104406 



004 737 010444 

103411 

016501 000000 

010004 

004737 020116 

104456 
000523 
057055 
011710 

X04406 
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SEQ 245 


MOV 


L$DLY,CPC)+ 


.WORD 





DEC 


-6CPC) 


BNE 


. 4 


DEC 


-22CPC) 


BNE 


.-20 



DEC 


T27DLY 


BNE 


10* 


JSR 


PC.FATCHK 


MOV 


R0.R1 


ERRDF 


ERRNO.SFIERR.SFIMSG 



20$; 



MOV 



#T27PAi:«KT,R4 



{BUMP COUNTER 

j BR, IF COUNTER NOT DONE 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

I CONTENTS OF TSSR REGISTER 

i FATAL ERROR TSSR WAS NOT OK 

TRAP CJERDF 
.WORD 337 
,U0RD SFIERR 
.WORD SFIMSG 



{SUBROUTINE NEEDS PACKET ADDRESS 



{WRITE CHARACTERISTICS COMMAND ('CALL TO WRTCHR) 



23$: 



JSR PC, WRTCHR 

BCS 23$ 

JSR PC.FATCHK 

MOV R0.R1 

ERRHRD ERRNO.WRTMSG.SFIMSG 



CKLOOP 



j ISSUE WRITE CHARACTERISTICS 

j BR, IF COMMAND ISSUED OK 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 

j SAVE CONTENTS OF TSSR 

{WRITE CHARACTERISTIC FAILED 

TRAP 
.UORD 
.WORD 
.WORD 

I LOOP IF SELECTED 

TRAP 



CJfcRHRD 

338 

WRTMSG 
SFIMSG 



CSCLPl 



ISSUt REWIND COMMAND TO SELECTED TAPE DRIVE 

j CALL TAPE REUINO COMMAND 

{BR, IF NO PROGLEM 

{GET TSSR CONTENTS 

{GET PACKET ADDRESS 

{INC AND CHECK FOR MORE THAN 25 ERRORS 

{REWIND NOT ACCEPTED 

TRAP CSERHRD 
.WORD 339 
.UORD T27RWN 
.WORD PKTSSR 
30$: CKLOOP {LOOP IF SELECTED 

TRAP CSCLP1 

I +++ + + *, + ** + + * + + ** + + + * + + + *** + * 4 ^ + +, + 4,^**^ + 4, * + + + * + + + * + * + + + * + * + *** + *+** 



JSR 


PC, REWIND 


BCS 


30$ 


MOV 


TSSR(R5),R1 


MOV 


R0.R4 


JSR 


PC.FATCHK 



ERRHRD ERRNO , T27RWN , PKTSSR 



CZTKGA TK-25 FRT END FUNC 03 
TEST 3: WRITE DATA RETRY 



N3 
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SEQ 246 



9946 
994 7 
9948 
9949 
9950 
9951 
9952 
9953 
9954 
9955 
9956 
9960 



9961 

9962 
99o3 
996^ 
9965 
9966 
9967 
9968 
9969 
9970 
9971 
9972 
9973 
9974 
9975 
9976 
9977 
9978 
9979 
9980 
9984 
9985 
9986 
9987 



9988 

9989 
9990 
9991 
9992 
9993 
9994 
9995 
9996 
9997 
9998 



054164 
054170 
054172 
054176 
054200 
054202 
054206 
054206 
054210 
054212 
054214 
054216 
054216 
054220 
054224 



054232 
054240 
054244 
054252 
054256 
054262 
054266 
054272 
0542 74 
054276 



054 302 
05^302 
054304 
054306 
054310 
054312 
C54312 
054314 
054316 



013701 055546 

010102 

052702 000002 

020102 

001406 

004737 020116 

104456 
000524 
056551 
016360 

104406 

012703 000144 
013737 003072 



012737 
012704 
012737 
010465 
004737 
016501 
012702 
020102 
001406 
004737 



104457 
000525 
005011 
011710 

104406 
005303 
001345 



140005 
055650 
000024 
177776 
017134 
OOOOOO 
000200 



020116 



055652 



READ MESSAGE BUFFER EXTENDED STATUS REGISTER ZERO CX5T0) 

********************* A*. ****************************** ************* 

iPiCK yp XSTO 

{SET UP EXPECTED 

{SET BOT BIT IN EXPECTED 

iDOES EXP - REC'D 

j BR, IF EQUAL (OK) 

{INC AND CHECK FUR MORE THAN 25 ERRORS 

j TAPE NOT AT BOT AFTER REWIND 

TRAP CtERHRD 
.WORD 340 
.WORD T27B0T 
.WORD EXPREC 
40$: CKLOOP {LOOP IF SELECTED 

TRAP C*CLP1 
{NUMBER OF RECORDS TO BE WRITTEN 
; STARTING WRITE BUFFER ADDRESS 



MOV 


T27BFR*6,R1 


MOV 


R1.R2 


BIS 


0BIT1.R2 


CMP 


R1.R2 


BEQ 


40* 


JSR 


PC.FATCHK 



ERRHRD ERRNO , T27B0T , EXPREC 



CKLOOP 

MOV 
MOV 



0100. ,R3 
FREE,T27WB 



******* ************************************* a********************* 

WRITE DATA.ACK.CVC-l COMMAND 

****************************************** ****************** + * + **+*. 



055650 65*: 
055656 



MOV 0140005, T27PK3 

MOV OT27PK3.R4 

MOV O20..T27SZ 

MOV R4 l TSDB^ r O 

JSR PC.WAIU 

MOV TSSR(R5),R1 

MOV 0SSR,R2 

CMP R1.R2 

BEQ 70$ 

JSR PC.FATCHK 



ERRSOFT ERRNO,WRTERR,PKTSSR 



70* j 



CKLOOP 

DEC 
BNE 



R3 
65* 



{WRITE DATA.ACK.CVOl COMMAND 

j SET UP R4 WITH PACKET ADDRESS 

;SET UP RECORD SIZE IN PACKET 

j ISSUE COMMAND 

{WAIT FOR SSR TO SET 

{GET TSSR CONTENTS 

{SET UP EXPECTED 

{ARE THEY EQUAL 

{BR, IF OK 

{INC ANO CHECK FOR MORE THAN 25 ERRORS 

{SOFT ERROR GENERATED BECAUSE THE 

{WRITE COMMAND IS NOT BEING CHECKED 

•HERE. IT WAS CHECKED IN LEAH2 

jTSSR INCORRECT AFTER WRITE DATA 

TRAP C*ERSOFT 

.WORD 

.WORD 

.WORD 
{LOOP IF SELECTED 

TRAP 
{DEC RECORD COUNTER 
,BR, IF MORE RECORDS TO WRITE 



341 

WRTERR 

PKTSSR 

CSCLPi 



054320 004737 010444 



;*******************»*********************************4************ 

{ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

J 

, ****************************************************** ******* ***** 

JSR PC, REWIND {CALL TAPE REWIND COMMAND 



C/TKGA TK-25 FRT ENO FUNC 03 
TEST 3: WRITE DATA RETRY 
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SEQ 247 



9999 

10000 
10001 
10002 
10006 



10007 

1000« 
1000Q 
10010 
10011 
10012 
10013 
10014 
10015 
10016 
10017 
1001ft 
10019 
100.0 
10024 



10025 

10026 
10027 
10028 
10029 
10030 
10031 
10032 
10033 
10034 
10035 
10036 
10037 
1003C 



10039 
10040 
10041 
10042 
10043 



054324 
054326 
054332 
054334 
054340 
054340 
054342 
054344 
054346 
054350 
054350 



054420 
054426 
054432 
054436 
054436 
054442 
054444 
054450 
054452 
054456 
054460 
054464 
054466 
054472 
0544 76 
054500 
054504 



103411 

016501 000000 

010004 

004737 020116 

104456 
000526 
057055 
011710 

104406 



BCS 
MOV 
NOV 
J'SR 
ERRHRD 



1301} CKLOOP 



1301 

TSSR(R5) f Rl 
R0.R4 
PC.FATCHK 

ERRN0.T27RWN.PKTSSR 



iBR. IF NO PROBLEM 

iGET TSSR CONTENTS 

I GET PACKET ADDRESS 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

I REWIND NOT ACCEPTED 



j LOOP IF SELECTED 



TRAP 

.WORD 
.WORD 
.WORD 

TRAP 



CIERHRD 
342 

T27RWN 

PKTSSR 

CICLP1 









iREAO 


MESSAGE BUFFER EXTENDEO STATUS 


REGISTER ZERO (XSTO) 




054352 


013701 


055546 




MOV 


T27BFR»6 ( R1 


>PICK UP XSTO 




054356 


010102 






MOV 


R1.R2 


iSET UP EXPECTED 




054360 


052702 


000002 




BIS 


46IT1.R2 


tSET BOT BIT IN EXPECTED 




054364 


020102 






CMP 


R1.R2 


,DOES EXP - REC'D 




054366 


001406 






BEU 


140$ 


iBR, IF EQUAL COK) 




054370 


004737 


020116 




JSR 


PC.FATCMK 


llNC ANO CHECK FOR MORE THAN 25 


ERRORS 


054374 








ERRHRD 


ERRNO.T27B0T.EXPREC 


j TAPE NOT AT BOT AFTER REWINO 




054374 


104456 










TRAP 


C$ERHRD 


054376 


000527 










.WORO 


343 


054400 


056551 










.WORD 


T27C0T 


054402 


016360 










.WORD 


EXPREC 


054404 






140$: 


CKLOOP 




lLOOP IF SELECTED 




054404 


104406 










TRAP 


C$CLP1 


054406 


012704 


055650 




MOV 


#T27PK3,R4 


j SET UP PACKET ADDRESS 




054412 


012737 


000010 055652 




MOV 


#10.T27RB 


1 SET UP RECOROS TO SPACE OVER 










»ACK, 


CVC-1. SPACE FORWARD COttltND 







012737 
010465 
005237 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
016501 
032701 
001755 
016501 
012702 



140010 
177776 
055676 

000001 

002116 

177772 

177756 

000000 
000200 

000000 
000200 



055650 





MOV 


#140010, T27PK3 


150$: 


MOV 


R4,TS06CR5) 


152 It 


INC 


T27CNT 




DELAY 


1 



MOV 


TSSRCa5),Rl 


BIT 


#6IT7,R1 


BEQ 


152$ 


MOV 


TSSR(R5),R1 


MOV 


*SSR*R2 



I ACK, CVC-1. SPACE FORWARD COMMAND 

llSSUt COMMAND 

»BUMP TIMER 

i DELAY ABOUT 10005 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

iGET TSSR 

iCMECK FOR TSSR'S SSR SET 

iKEEP COUNTING UNTIL SET 

i&ET STATUS FROM TSSR 

l SET UP EXPECTED 





L IDLY, (PC)* 



~6(PC) 

.-4 

-22CPC) 

*-eo 



CZTKGA TK-25 FRT ENO FUNC 03 
TEST 3: WRITE DATA RETRY 



C4 
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SEQ 248 



10044 
10045 
10046 
10050 



10051 

1005? 
10053 
10054 
10055 
10056 
10057 
10058 
10059 
10060 
10061 
10062 
10063 
10067 



10068 

10069 
10070 
10071 
10072 
10073 
10074 
10075 
10076 
10077 
10078 
1C079 
10080 
10081 
10085 



10086 

10087 
10088 
10089 

10090 
10091 
10092 
10093 
10094 



054510 
054512 
054514 
054520 
054520 
054522 
054524 
054526 
054530 
054530 



054532 
054536 
054542 
054544 
054546 
054552 
054552 
054554 
054556 
054560 
054562 
054562 



020201 
001406 
004737 020116 

104456 
000530 
060317 
011710 

104406 



CMP 


R2.R1 


»UAS EVERYTHING OK 




BEQ 


160$ 


iBR. IF ALL IS WELL 




JSR 


PC.FATCHK 


1 INC ANO CHECK FOR MORE THAN 25 


ERRORS 


ERRHRD 


ERRNO, T27SCF, PKTSSR 


l SPACE FORWARD DIDN'T WORK OUT 








TRAP 


CIERHRC) 






.WORD 


344 






.WORD 


T27SCF 






.WORO 


PKTSSR 


CKLOOP 




lLOOP IF SELECTED 

TRAP 


CICLP1 



004737 010444 

004737 017252 

105407 

010001 

004737 020116 

104456 
000531 
057055 
011710 

104406 



160$: 



| ******** ****** 4******4** A****** ****** 44**4 4 444*4*4**+*****+****+** 

l ISSUE REWIND COMMANO TO SELECTED TAPE DRIVE 

I 

1*******4*****+********* *************+****» ************** ********** 

»CALL TAPE REWIND COMMANO 

I SEE HOW TSSR IS 

» BR. IF NO PROBLEM 

» SAVE TSSR 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 

j REWIND NOT ACCEPTED 

TRAP CIERHRD 
.WORD 345 
.WORD T27RWN 
.WORD PKTSSR 

lLOOP IF SELECTED 

TRAP 



JSR 


PC.REWIND 


JSR 


PC.CHKTSSR 


BCS 


170$ 


MOV 


R0»R1 


JSR 


PC.FATCHK 



ERRHRD ERRNO , T27RWN , PKTSSR 



170$: CKLOOP 



C1CLPX 









Iread 


MESSAGE BUFFER EXTENDED STATUS 


REGISTER ZERO CXSTO) 




054564 


013701 


055546 




MOV 


T27BFR»6,R1 


iPICK UP XSTO 




054570 


010102 






MOV 


R1.R2 


iSET UP EXPECTEO 




054572 


052702 


000002 




BIS 


•BIT1.R2 


iSET BOT BIT IN EXPECTEO 




054576 


020102 






CMP 


R1»R2 


l DOES EXP - REC'D 




054600 


001406 






BEQ 


175$ 


iBR. IF EQUAL (OK) 




054602 


004737 


020116 




JSR 


PCFATCHK 


l INC AND CHECK FOR MORE THAN 25 


ERRORS 


054606 








ERRHRD 


ERRNO. T27B0T.EXPREC 


j TAPE NOT AT BOT AFTER REWIND 




054606 


104456 










TRAP 


C$ERHRD 


054610 


000532 










.WORD 


346 


054612 


056551 










,WOR0 


T27B0T 


054614 


016360 










.WORD 


EXPREC 


054616 






175$: 


CKLOOP 




lLOOP IF SELECTED 




054616 


104406 










TRAP 


CfCLPl 


054620 


012703 


000144 




MOV 


•100. ,R3 


iSTARTING RECORD SIZE 




054624 


013737 


003072 055652 


177$: 


MOV 


FREE.T27WB 


iSTARTING WRITE BUFFER ADDRESS 





jWRITE DATA.CVC-l.ACK COMMANO 

\ 

14***44*4*444****************4 44********4***4*******.*********** + *** 



CZTKGA TK-25 FRT END FUNC 03 
TEST 3: WRITE DATA RETRY 
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SEQ 249 



10095 
10096 
10097 
1009© 
10099 
10100 
10101 
10102 
10103 
10104 
10105 
10109 
10110 
10111 
10112 



10113 

10114 
10115 
10116 
10117 
10116 
101' 1 
101<" ) 
10*2?, 
101*2 
101^3 

10,.iS 
10126 
10? T7 

.\01J1 



10X32 
101S-- 

1013:;- 

101 .>* 
101.SV 
iOlac 
10J39 
101*0 
101* i 
1014;- 
J.0L43 
101*4 

io:.4/> 

1014*^ 
10150 



054632 
054640 
054644 
054652 
054656 
054662 
054666 
054672 
054674 
054676 



054702 
054702 
054 704 

054 :o> 
omv.o 

0h*71«> 

0547:^! 
05* VV! 
024 71c 



U'-.i.'JJO 

(' X /-'JO 
'J ; < . 10 
wS4 /«2 

OV M6 

•* :! ;?>? 



01273? 
012704 
012737 
010465 
004737 
016501 
012702 
020102 
001406 
004737 



104457 
000533 

,>050.U 
011710 

!C-*406 

005303 
001342 



140005 
055650 
000024 
177776 
017134 
OOOOOO 
000200 



020116 



055650 
055656 



034737 010444 

103411 

010004 

016501 OOOOOO 

004737 020116 

104456 
000534 
057055 
011710 

104406 



Cv.T/^2 012703 000001 

r : vl756 004737 010144 

o: r/6? io34ii 

'*i\7&A 010004 

■'--■V766 016501 OOOOOO 

0'^:.77;-> 004737 020116 

054776 



MOV $140005, T27PK3 

MOV #T27PK3,R4 

MOV ♦20..T27SZ 

MOV R4.TSDBCR5) 

JSR PC.WAITF 

MOV TSSR(R5),R1 

MOV «SSR»R2 

CMP R1.R2 

BEQ 180$ 

JSR PC.FATCHK 



ERRSOFT ERRNO.WRTERR, PKTSSR 



■l.ACK COMMANO 
PACKET ADDRESS 
IN PACKET 



iWRITE DATA.CVC* 

iSET UP R4 WITH 

I SET UP RECORD SIZE 

I ISSUE COMMANO 

I WAIT FOR SSR TO SET 

jGET TSSR CONTENTS 

I SET UP EXPECTED 

I ARE THEY EQUAL 

|BR, IF OK 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

I SOFT ERROR GENERATED BECAUSE THE 

, WRITE COMMAND IS NOT 

iHERE. IT WAS CHECKED 

I TSSR INCORRECT AFTER 



180$ { CKLOOP 

DEC R3 
BNE 177$ 



jLOOP IF SELECTED 

TRAP 
, COUNT NUMBER Of RECORDS 
*BR, IF MORE RECORDS TO WRITE 



BEING CHECKED 


IN LEAH2 




WRITE DATA 


TPAP 


C$ERSOFT 


.WORD 


347 


.WORD 


WRTERR 


.WORD 


PKTSSR 



C$CLP1 



1***********4******** *************** *********************** ******** 
I 

j ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

I 

I ********^- ****************************** ********* ****************** 

» ISSUE REWIND 

iBR, IF ALL IS WELL 

I GET PACKET AOORESS 

■GET TSSR CONTENTS 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

» REWIND FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

t SELECT LOOP MAYBE 

TRAP 



JSR 


PC.REWINO 


BCS 


182$ 


MOV 


R0.R4 


MOV 


TSSRCR5).R1 


JSR 


PC.FATCHK 



ERRHRD ERRNO, T27RWN.PKTSSR 



182$: CKLOOP 



C$ERHRD 
348 

T27RWN 
PKTSSR 



C$CLP1 



l **************** ****************************************** ******** 

tISSUe SPACE RECORDS COMMAND - VALUE. IN R3 SETS NUMBER OF RECORDS 
iBIT 15 SETS DIRECTION - 0-FORWARD 1-REVERSE 

i 

I****************************************************************** 

I SPACE 1 RECORD FORWARD 

I ISSUE SPACE COMMAND 

iBR, IF COMMAND OK 

jGET PACKET AOORESS 

iGET TSSR STATUS 

»INC AND CHECK FOR MORE THAN 25 ERRORS 

I SPACE FORWARD COMMANO FAILED 



MOV 


•1..R3 


JSR 


PC .SPACE 


BCS 


185$ 


MOV 


R0.R4 


MOV 


TSSRCR5),R1 


JSR 


PC.FATCHK 



ERRHRD ERRNO ♦ T27SCF .PKTSSR 



CZTKGA fK-jj! 
TEST 3: WR; 



FRI- 



END TL-NC *3 

:te data retry 



10151 

1C 152 

-.0153 

10154 

10155 

10156 
10i5> 

ioi:s 

1015° 
10160 
10161 
10.162 
10165 
J.0164 
10165 
10166 
10JA7 
10166 
10169 
10170 
10174 



10175 

10176 
20177 
10170 
10179 
10180 

lcmi 

10182 
10183 
101M 

loies 
icie* 
lortw 

10I.8U 
10i«9 
lOlStf 
10 UU 

UH9; S 

10is;f 

10197 
10 J Sri 
101VV 
10200 



054776 
055000 
055002 
055C04 
055006 
05500i> 
055010 
055014 



055025 

055030 
055034 
05504: 3 . 
055046 
055052 
055056 
055062 
055CM 
055066 
05507? 
055072 
055074 
0550 / 6 
055100 
055102 
055102 
055104 



035 \ 12 
■>55i;>0 
055 J 24 
055132 
055156 
053 14 a 
055146 
055152 

055156 



05^1.62 
05516? 
055 It"* 4 
055166 



104456 
000535 
060317 
011710 

104406 
012703 
013737 



012737 
012704 
012737 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000536 
057411 
011710 

104406 

013737 



012737 
012704 
012737 
010465 
004737 
016501 
012702 
020102 
001406 
004737 



104457 
00053 7 
005011 



000144 
003072 



101005 
055650 
00O024 
177776 
017134 
000000 
000200 



020116 



140005 
055650 
000024 

177776 
017134 
OOOOOO 
000200 



020116 
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SEQ 250 



185$; 



055652 



CKLOOP 

MOV 
MOV 



♦100. ,R3 
FREE.T27WB 



TRAP CIERHRD 
.WORD 349 
.WORD T27SCF 
.WORD PKTSSR 
jLOOP IF SELECTED 

TRAP CICLPl 
jNUMBER OF RECORDS TO BE WRITTEN 
I STARTING WRITE BUFFER ADDRESS 



, **************** *************** *********************************** 

1 WRITE DATA RETRY, ACK COMMANO 

i 

i ***************************************************** ************* 



055650 
055656 



190$} 



MOV 


♦101005, T27PK3 


MOV 


♦T27PK3,R4 


MOV 


♦20. .T27SZ 


MOV 


R4,TS0eCR5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5).R1 


MOV 


♦SSR.R2 


CMP 


R1.R2 


BEQ 


2001 


JSR 


PC.FATCHK 



ERRHRD ERRNO . T27W0C . PKTSSR 



i WRITE OATA RETRY t ACK COMMAND 

»SET UP R4 WITH PACKET ADDRESS 

l SET UP RECORD SIZE IN PACKET 

i ISSUE COMMANO 

I WAIT FOR SSR TO SET 

I GET TSSR CONTENTS 

iSET UP EXPECTED 

l ARE THEY EQUAL 

iBR. IF OK 

j INC AND CHECK FOR MORE THAN 25 ERRORS 

I TSSR INCORRECT AFTER WRITE DATA 



200$; 



003072 055652 



CKLOOP 

MOV 



FREE.T27UB 



TRAP 


C$ERHRD 


.WORD 


350 


.WORD 


T27WOC 


.WORD 


PKTSSR 


lLOOP IF SELECTED 




TRAP 


C$CLP1 


; STARTING WRTTE BUFFER ADDRESS 





055650 
055656 



I ******************************************************** ********** 

jWRITE DATA.CVC-l.ACK COMMANO 

i 

t ********************************************************** ******** 

jWRITE DATA.CVC-l.ACK COMMAND 

j SET UP R4 WITH PACKET ADDRESS 

i SET UP RECORD SIZE IN PACKET 

» ISSUE COMMANO 

iWAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

»SET UP EXPECTED 

lARE THEY EQUAL 

I BR, IF OK 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 

i SOFT ERROR GENERATED BECAUSE THE 

j WRITE COMMANO IS NOT BEING CHECKED 

iHERE. IT WAS CHECKED IN LEAH2 

j TSSR INCORRECT AFTER WRITE DATA 

TRAP CiERSOFT 
.WORD 351 
.WORD WRTtR^ 



MOV 


♦l40O05,T27PK3 


MOV 


♦T?7PK3,R4 


MOV 


♦20..T27SZ 


MOV 


R4,TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


♦SSR,R2 


CMP 


R1.R2 


BEQ 


210$ 


JSR 


PC.FATCHK 



ERRSOFT ERRNO, WRTERR .PKTSSR 



F4 

C2TK6A . VK -25 FHT END FUNC 03 MACRO M1200 20-APR-84 08:13 PAGE 120-7 



TtST 



WRITE DATA RETRY 



S£Q 251 



10201 

10202 
10205 
lOP.CA 
3 0205 
10306 
1020 / 
10206 
10209 
10210 
10211 
10212 
10213 
10214 
1021.5 

io;.mv 



10'_'20 

lO.'V.l 
10222 
10*:23 

XOc 2> 
3 02' l O 
1022 / 

. ■!■!"<• 
.k.V/f_<'. . 

ro.-i-so 

102 ■<; 

J. 02 5"! 

1023V 



102.^; 

ior?.*; 
102:0 

102' 1 
10242 

l02"'i 

i.o;^v> 

102*3 / 
10;-MK 

io;»i-: 
102-m; 

i02bl 



ODJ170 
05517.? 
055x72 
055174 
055176 



015:^200 

0SS2O6 

O'JSSl? 
CVJ5?i4 
O55220 
Ot>5220 
U5S222 
05S22-1 
055?36 
OSVSu 
055230 



Oct 



^r» 



CjS23n 

*J .■■>'•■•! 

0:-iS244 

0S.;246 

<W :■!:>* 

<;.SS2S6 

O'-j 2u0 

o:.» i . : .262 

05.S,J72 



O5S3O0 
o I..-, ' y t' 

ofi';.6L(i 



011710 

104406 
005303 
001311 



210$: 



004737 
103411 
016501 
010004 
004737 

104456 
000540 
057055 
013710 

104406 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
0OO541 

056551 
016360 

104406 
012704 
012737 



012737 
010465 
005237 



010444 
000000 
020116 



055546 
000002 

020116 



055650 
000010 



140010 
177776 
055700 



055652 



055650 



CKLOOP 

DEC 
BNE 



R3 

190$ 



.WORD PKTSSR 
I LOOP IF SELECTED 

TRAP C$CLP1 
j BUMP DOWN RECORD COUNTER 
jBR, IF MORE RECORDS TO WRITE RETRY 



I*********************************** ********** ** ************* ****** 
J 

; ISSUE REWIND COMMAND TO SELECTED TAPE DRIVE 

J 
******************************************************************* 

»CALL TAPE REWINO COMMAND 

» BR, IF NO PROBLEM 

iGET TSSR CONTENTS 

j GET PACKET ADDRESS 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

j REWIND NOT ACCEPTED 

TRAP CIERHRO 

.WORD 352 
.WORD T27RWN 
.WORD PKTSSR 

jLOOP IF SELECTED 

TRAP C$CLPl 



JSR 


PC, REWINO 


BCS 


230$ 


MOV 


TSSR(R5),R1 


MOV 


R0.R4 


JSR 


PC.FATCHK 



ERRHRD ERRN0.T27RWN, PKTSSR 



230$: CKLOOP 



j***********************************************. . *. ***************** 

i READ MESSAGE BUFFER EXTENOED STATUS REGISTER ZERO CXSTO) 

J 

t ************************************* ***************************** 

tPICK UP XSTO 

» SET UP EXPECTED 

j SET BOT BIT IN EXPECTED 

tDOES EXP - REC'D 

j BR, IF EQUAL COK) 

j INC AND CHECK FOR MORE THAN 25 ERRORS 

j TAPE NOT AT BOT AFTER REWIND 

TRAP C$ERHRD 

.WORD 353 
.WORD T27B0T 
.WORD EXPREC 
240$: CKLOOP |LOOP I r SELECTED 

TRAP C$CLP1 

j SET UP PACKET ADDRESS 
{SET UP RECORDS TO SPACE OVER 



MOV 


T27BFR*6,R1 


MOV 


R1.R2 


BIS 


«BIT1,R2 


CMP 


R1.R2 


BEQ 


240$ 


JSR 


PC.FATCHK 



ERRHfiD ERRNO , T27B0T ,EXPREC 



CKLOOP 

MOV 
MOV 



*T27PK3,R4 
410.T27RB 



j ****************************************************************** 

iACK,CVC»l, SPACE FORWARD COMMAND 
♦ 

J ********************************************* ********************* 

lACK.CVOL, SPACE FORWARD COMMAND 

i ISSUE COMMAND 

{BUMP TIMER 

j DELAY ABOUT 100US 





MOV 


*140010,T27PK3 


2501; 


MOV 


R4.TSDBCR5) 


252$: 


INC 


T27CNU 




DELAY 


1 



^PV^t^aM 



m 



03 
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10252 
10253 
10254 
10255 
10256 
10257 
10258 
10259 
10263 



10264 

10265 
10266 
1026/ 
10266 
10269 
102 /O 
10271 
.10272 
1027*. 
10377 



10276 
10279 



102'lu 

102*51 
1028,' 
1028* 
10X64 

io?8-;> 

lC2Cn 
1020 7 

iC2aa 



o:>5: « c 

055 _VV 
055^:4 
05b::'/ 
05:":*,;:i 
055:* ;> 
O r >ii--.'.o 

oss :■*■».; 
05ii> ■■;> 

Ob'ij:-^ 

055:s';.o 

055? SO 

0553 . 2 
0555V ; 

055^ <y 
C5VU0 

055'.' V % 

05: k* 

0!;5< v o 

055^: •. •> 
0S5- Hi.' 
05' wu"i 

05:w -.■? 

055': ..4 

055'* -i J 
055 < 3? 

0554 :;c- 
055 •-: :■) 

055i ■.. 1 

055*.'., 

C 3 5*r ■;'.-■ 
0!ii: :..'"» 

Ot»:y%- ■:.'-. 
O^ii-V*-} 

OS'-.*::: 'j 
or.!^:'A 
5KV\'i 



055- V 
OV" * , ', 
05 l :« > 

05^'iv2 

o 1 -;..: !■;■. 

')55'^.o 
05 ->:;(; . 
055" .?.0 



012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
016501 
032701 
001755 
016501 
012702 
020201 
001406 
004737 

104456 
000542 

<>60317 
011710 

104406 
013701 
(,'13702 
160102 
160102 
C42702 
005702 
001407 
004737 
005001 

104456 
000543 
056644 
016360 

104406 



1.01403 

<W402 

004737 

004737 
103002 
000137 



104432 
003322 



000001 

002116 

177772 

177756 

000000 
000200 

000000 
000200 

020116 



055676 
055700 



007777 



020116 



260*: 





G4 






APR -84 


08:13 PAGE 120-8 




SEQ 252 






MOV 


•l.CPC)* 






.WORD 









MOV 


LIDLY.CPO* 






.WORD 









DEC 


-6CPC) 






BNE 


. -4 






DEC 


-22CPC) 






BNE 


.-20 


MOV 


TSSRCR5),R1 


iGET TSSR 




BIT 


OBIT7.R1 


I CHECK TOR TSSR'S SSR SET 




BEQ 


252$ 


j KEEP COUNTING UNTIL SET 




MOV 


TSSRCR5),R1 


{GET STATUS FROM TSSR 




MOV 


♦SSR.R2 


j SET UP EXPECTED 




CMP 


R2.R1 


tWAS EVERYTHING OK 




BEQ 


260$ 


iBR, IF ALL IS WELL 




JSR 


PC.FATCHK 


{INC AND CHECK FOR MORE THAN 25 


ERRORS 


ERRHRD 


ERRN0.T27SCF.PKTSSR 


j SPACE FORWARD DIDN'T WORK OUT 








TRAP 


CIERHRD 






.WORD 


354 






.WORD 


T27SCF 






.WORD 


PKTSS* 


CKLOOP 




{LOOP IF SELECTED 








TRAP 


C$CLP1 


MOV 


T27CNT.R1 


j TIME FOR WRITE SPACING 




MOV 


T27CNU>R2 


(TIME FOR WRITE RETRY SPACING 




sue 


R1.R2 


iGET'EM PRETTY CLOSE 




SUB 


R1.R2 


|GE T 'EM PRETTY CLOSE 




BIC 


*7777, R2 


1 CLEAR LCW 12 BITS 




TST 


R2 


>R2 SHOULD BE ZERO 




BEQ 


300$ 


j BR, IF GOOD CHECK 




JSR 


PC.FATCHK 


j INC AND CHECK FOR MORE THAN 25 


ERRORS 


CLR 


Rl 


j READY FOR PRINTOUT 




ERRHRD 


ERRNO,T27TIM,E>.PREC 


{TIME WAS NOT DIFFERENT ENOUGH 





300$: 



002170 000031 
020170 
017372 
051106 



999$: 



163$: 



CKLOOP 
ENDSUB 



CMP 
BLT 
JSR 

JSR 
BCC 

JMP 

EXIT 



ENOUGH 




TRAP 


CIERHRD 


.WORD 


355 


.WORD 


T27TIM 


.WORD 


EXPRFC 



KATFl G ( 025, 
999$ 

PC.CKDROP 

PC.TSTLOOP 

163$ 
T27L00P 

TST 



{LOOP IF SELECTED 

TRAP 
t < <<<<<<<<<<< ENO SUBTEST >>>> 

L10O73: 

TRAP 
j IS ERROR COUNT AT 25 
iBR. IF LESS THAN 25 
{TRY TO DROP THE UNIT 

{DO WE NEED TO ITERATE TEST 
j BR, IF NO LOOP REQUIRED 
{EXECUTE AGAIN 



C$CLP1 
>>>>>>>> 



CIESUB 



jALL DONE THIS TEST 



TRAP 
.WORD 



C$bXIT 
L 1006b- 



H4 



C2TKG.A Ti'.-i* .■ i x 
TEST 3: W&l'l'E 


iWfJftlP 


102*0 




10291 




1 0292 




102W 05:Y I:- 




10296 0^b2Q 




a 0297 '*•:■' :Vr:o 


100004 


10293 o.v>s;.? 


055530 


10299 0^!i^. : ''A 


000000 


103C0 0'iS:V/> 


000012 


10301 Oi-'JSilO 




io:>02 os5r»so 


055540 


\C303 o:.*js*^ 


OCOOOO 


10304 )5SS34 


000024 


iosos o;?s:>36 


000000 


10306 or^s^o 




10307 




1050tt 




1030S> 




10311 OV^rV 




10313 0:j5630 




10314 or>s:,.!o 


100006 


r03\S o* : .:>b:*r? 


055660 


10316 Oi'-LioSi 


000000 


103i I 05'"»C>H6 


000006 


10318 




103.10 0:5 \>£ 40 




10322 0-'/»5S() 




10323 CSrxoO 


100005 


10324 csshM: 




10325 0*56^2 


003072 


10323 r i*:,:S4 


cooooo 


10327 0*,5«i5C> 


000000 


1032M 




10329 055*'. -I'm) 




10330 '*5S tfO 


010 


10533 OSlihiil 


200 


1035? Of»Si>(. 2 


'XX>000 


10333 OSSfeO* 


000000 


103 54 




10335 




10*36 




10337 055- fr 


100205 


10338 05NSV0 


100605 


10339 055672 


102205 


10340 O.^io/4 


177777 


.10341 05 -uiVt"-. 


OOOOOO 


1034;? 0:/-.'fV 


000000 


10.343 O::i702 


OOOOOO 
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'local STORAGE FOR THIS TEST 
} - 



SEQ 253 



,BLKB 


10 -<.-T 


T27PACKET: 




.WORD 


100004 


.WORD 


T27DATA 


.WORD 





.WORD 


10. 


T27DATA: 




.WORD 


T27BFR 


.WORD 





.WORD 


20, 


.WORD 





T27BFR: .BLKU 


25. 



s WRITE SUBSYSTEM MEMORY COMMAND PACKET 
,BLKB 10-<.-TUV2A67> 



T27PK2- 








.WORD 


100006 




.WORD 


T27BF2 




.WORD 







.WORD 


6, 




.BLKB 


10-<.-TUV2A67> 


T27PK3: 








,WOPD 


100005 


T27RB; 






T27WB: 


.WORD 


FREE 




.WORD 





T27SZ: 


.WORD 
.EVEN 





T27BF2 






T27B50 


.BYTE 


10 


T27BS1 


.BYTE 


200 


T27S2: 


.WORD 





T27S3: 


.WORD 
.EVEN 





{TAPE MOTION PACKET COMMAND VALUES 


T27RN: 


.WORD 


100205 


T27V.UR 


.WORD 


100.05 


T27C0N 


.WORD 


102205 




.WORD 


177777 


T27CNT 


.WORD 





T27CNU 


.WORD 





T27DLY 


.WORD 






I COMMAND PACKET FOR TEST 

j WRITE CHARACTERISTICS COMMAND. WITH 

j ADDRESS OF CHARACTERISTICS BLOCK 

j STARTING VALUE OF BLOCK SIZE 
» CHARACTERISTICS DATA BLOCK 
l ADDRESS OF MESSAGE BUFFER 

iLENGTH OF MESSAGE BUFFER 

j MESSAGE BUFFER 



ACK 



{WRITE SUB SYS MEM COMMAND. ANO ACK 
l ADDRESS OF SELECT BLOCK DATA 

j SIZE OF DATA PACKET 



{REREAD COMMAND. AND ACK 
{ADDRESS OF URITE BUFFER 
{SIZE OF BUFFER CEXTENT) 



iBSELO AREA 
jBSELl AREA 
iSEL 2 AREA 
,DATA AREA 



{REREAD DATA (NEXT) 

{REREAD DATA RETRY 

{WRITE CONTINOUS 

i END Of DATA 

I TAPE TIMER COUNTER STORAGE AREA 

tTAPE TIMER COUNTER STORAGE AREA 

{DELAY COUNTER 



CZTXoA TK-;*r< J-'RT 
TES1 „<: W&XTE DA 



10545 
10546 
10517 

103 ;o 

105*0 

10?-b0 
1031)1 
10 3j2 
10353 

ioy>4 

10*55 

3 or.56 

10557 
.1 03513 
10?S<> 

10-^60 



END FUNC 
TA RETR 



RY 



03 
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SEQ 254 



'Ot 



10. 

io>;? 

10363 
10364 
10365 
to :: <i 
io';«i7 

10368 
1036^ 
103 70 
1057?. 
103 72 
103 73 
10374 
10375 
103/6 
10377 
103 7 a 
103/9 
10380 
10301 
10332 
10583 
10364 
103*15 
10386 

io;*»ho 

103A l% 
10390 
lOi'il 
10392 
10393 
1059* 
10395 
10.W, 
10397 
10390 
10 39-* 
1.04 00 
10411 



oyy/ij'i 
055/ '>;* 

Ofibf'iJ 
053 loo 

05:^;.;0 
05(vV0 

O'ir^fc 
05.:. »'(62 
056551 

05f/;-:l 

05/0S5 
Obi'lr.4 
0571.7 7 
OSV.V-fi 
G57.V.1 
057-1 i J 
05/4 -i 4 
0575;i7 
0*W6.1.2 
05 7/01 
7 'o"3 
0500 '5 
(KSO.i, r 3 

05»J,.5;J. 

<\".O y V7 

of-os^i 

Or.OV.K. 

0V15'Sf: 



OfiU.VU 
Otv'VV.W 

OOI r,'fC 

Oi.'t:^ /< 
O.:0'.i/f» 

Of').\Y 
O^ii) /'.?*-. 
C\->0710 
OtiO/14 



124 
124 
122 
120 
122 
124 
111 
122 
124 
124 
127 
122 
124 
122 
122 
124 
104 
124 
124 
103 
124 
127 
lt:2 
122 
122 
122 
127 
124 
124 
124 
104 
127 



012701 
012721 
012721 
005021 
012/21 
;>12721 
005021 
0-2721 
005021 



141 
123 
105 
117 
111 
123 
154 
105 
123 
141 
122 
105 
123 
145 
101 
123 
162 
123 
123 
126 
123 
122 
145 
145 
145 
145 
122 
123 
125 
123 
141 
162 



055520 
100004 
055530 

000012 
055540 

000024 



160 
123 
122 
123 
102 
123 
154 
122 
123 
160 
111 
122 
123 
167 
115 
123 
151 
123 
123 
103 
102 
111 
141 
141 
163 
141 
111 
123 
123 
123 
164 
151 



iLOCAL TEXT MESSAGES FOR TEST 
J - 



T27WNG 
T27RDF 
T27RRF 
T27SC; 
T27L0R 
T27WOF 
T27L0Q 
T27SSR 
T27WOE 
T27E0T 
T27TIM 
T27E0T 
T27TM; 
T27RWN 
T27RNC 
T27AM5 
T27 0FL 
T27WOO 

T27WCC 

T27VCK 

T27B'.i 

T?7.- . 

T2 

T? 

T2, 

T27TRL 

T27NEF 

T27SCF 

T27TSA 

T27WRF 

T27DTA 

T5T27ID: 

J * 



.ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.SCIZ 

. .iCIZ 

SCIZ 

tSClZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
. ASCIZ 

.EVEN 



Tape Position Incorrect After REREAO Prtvioue C0PP«1)' 

TSSR Incorrect After READ DATA Command' 

REREAD Previoue (Spaca R«veree , Read Forward) Command Foiled' 

POSITION (Space Command) Failed, TSSR Not Correct* 

RIB NOT SET AFTER READ REVERSE INTO BOT' 

TSSR Not Correct After Illegal Mode Bits Set' 

Illegal Mode Bite, Failed To Set ILC Bit In XSTO' 

REREAD COMMAND Not Accepted' 

TSSR Not Correct After WRITE DATA RETRY Command, At BOT' 

Tape Not At BOT After REWINO Command (BOT Not Set In XSTO)' 

WRITE DATA RETRY" S Eraee Tape Not Long Enough' 

REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT' 

TSSR Not Correct After REREAO COMMAND Reject' 

Rewind (POSITION) Command Not Accepted' 

RAM Error, Correct Data Pattern Not In Ram' 

TSSR Init. Fulled After REREAO COMMAND' 

Drive 7 Select Failed To Set "OFL" In TSSR' 

TSSR Not Correct After REREAD DATA Command, SWB Bit Set' 

REREAD DATA Command' 

VCK In Meeeage Buffer' 

REREAD DATA Command' 

Command Not Accepted (RAM Read)' 
To Set RLE B i t In XSTO' 
To Set RLS Bit In XSTO' 



TSSR Not Correct After 
CVC Set, Didn' ' t Reset 
TS6A Not Correct After 
WRITE SUBSYSTEM MEMORY 
Reading Long Record 
Reading Long Record 



Failed 

Failed 



Rseiduel Byte Count Incorrect After Short Record R«aJ' 

Reading Long Record Failed To Give Tape Statu* Alert* 

WRITE DATA RETRY, At First Record, Failed To Set RIB Bit XST3' 

TSSR Not Correct After SPACE RECORDS Command' 

TSSR Not Correct After WRITE DATA RETRY, Into BOT' 

TSSR Not Correct After WRITE DATA RETRY Command' 

Dota Compare Error, Data Read From Tape Not Equal To Written' 

ASCIZ 'Write Data Retry' 



iROUTINE TO RESTORE COMMANO PACKET TO START-UP (DEFAULT) VALUES 
i WRITE SUBSYSTEM MEMORY COMMAND 



T27RESY 



SAVREG 

MOV OT27PACKET.R1 

MOV $100004. (RD» 

MOV eT27DATA 4 (Rl)» 

CLR CRD* 

MOV O10..CRD* 

MOV «T27BFR,(R1)» 

CLR CRD* 

MOV #20., (RD* 

CLR CRD* 



j SAVE THE REGISTERS 

i START OF THE PACKET 

{WRITE SUBSYSTEM MEM. WITH ACK , 

I ADDRESS OF CHARAISTICS DATA BLOCK 

i EXTENDED ADDRESS 

I SIZE Of DATA BLOCK IN BY i c 

I ADDRESS OF MESSAGE BUFFER 

1 LENGTH Or MESSAGE BUFFER 



S 



C2TKG- 
TfST 



iK-25 rfU f-ND FUNC #3 
*.t WRITE DATA RETRY 



10 

K.--J5 
1^04 
10. OS 

lO si,. 

10 ".0/ 

if.: ,oe 

'..OI-O-'J 

K. "ll 

1CU2 
1<> 13 
K. :14 
1C 15 
10 '16 
3-* M7 

lo- ia 

V>- 19 

lo^no 
c- n 

'.« ".r'3 

t; 1 - i 
u>t;.v 

l(»4 t ,i 
104, A 
10429 
1.04.'^ 
10*^ 



06071b 
060*22 

w "/26 
0^,073.1 
060736 
06074;.' 



0o0746 

060/^)2 
06075 -i 
060 ~62 
060 7- V> 
0607 TO 
060771 
080776 
06X0.V 
06100 , 

061006 
06103" 

06101A 
0610.14 

06io;.:o 

061022 

{.•gjO.'-V'i 

0610 .. 
ooio: ■.: 

0S1C.V' 

061052 



0i2?U 
.u2702 
012762 
005742 
022? 02 
001? 71 
000207 



0?.P721 
012721 
005021 
0^ £721 
0C5C21 
012701 
C05021 
OOiOll 
000207 



012/01 
00 l .>C2? 
00*.021. 
C'J'JCV.l 

v.*l "Oil 

',00207 



104401 



000000 
000030 
5.77777 

000000 



05S6K> 
lcooCo 

"5!i.660 

OOOCO:. 
055bbO 



055650 
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055540 64$: 



T27RT2: 



T27RT3: 



MOV 
MOV 
MOV 
TST 
CMP 
BNE 
RTS 



SAVREG 

MOV 

MOV 

MOV 

CLR 

MOV 

CLR 

MOV 

CLR 

CLR 

RTS 

SAVREG 

MOV 
CLR 
CLR 
CLR 
CI u 
RTS 
ENOTST 



*0,(RL) 

#24., R2 

#177777, T27BFRCR2) 

-CR2) 

#0,R2 

64$ 

PC 



0T27PK2.R1 

#100006 ,(R1)» 

#T27BF2,CR1)* 

CRD* 

#6., CRD* 

CR1)» 

#T27BF2,R1 

(Rl)» 

CR1) 

PC 



OT27PK3.R1 

CRD* 
CRD* 

CRin 

(Rl) 

PC 



SEQ 255 



i SELECT DRIVE ZERO 

j NUMBER OF LOCATIONS TO BE CLEARED 

l ALL ONES TO MESSAGE BUFFER 

tNEXT LOCATION 

I AT ENO OF LOOP YET 

jKEEP GOING UNTIL DONE 

; RETURN 



j SAVE THE REGISTERS 

j START OF THE PACKET 

jWRITE SUBSYSTEM MEM. WITH 

I ADDRESS OT DATA BLOCK 

I EXTENDED ADDRESS 

j SIZE OF DATA BLOCK IN BYTES 

i POINT TO DATA SEL AREA 



ACK, 



RETURN 



i SAVE REGISTERS 

j SET UP POINTER ADDRESS 

jCOMMANO SPACE 

i ADDRESS OF DATA BLOCK 

I EXTENDED ADDRESS 

{SIZE OF DATA TRANSFER BLOCK 

jRETURN 



L 10066: 



TRAP 



C$ETST 



¥ 



ZTK6A TK-i?5 F'RT END FUNC 03 
EST 4: WRITE/READ TAPE MARK 



10433 
10434 
10435 
10436 
10437 
10438 
10439 
10440 
10441 
10442 
1044 3 
10444 
30445 
10446 
1044 7 
10448 
10449 
10450 
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SEQ 256 



10451 
10452 
10453 
10454 
10455 
10460 
10461 
10462 
10463 



061034 
061034 
061034 
061040 
O61044 
061052 
061056 
061062 
061066 
06107? 
061100 



005037 
00503 7 
012737 
005037 
004 737 
012700 
004 737 
012737 



002170 
003100 

005771 
003102 
020262 
065251 
017424 
000001 



002146 



002164 



.SBTTL TEST 4: WRITE/READ TAPE MARK 



THIS TEST VERIFIES T HAT THE WRITE TAPE NARK COMMAND OPERATES 
PROPERLY, IT IS VERIFIED THAT THE TAPE MAPK IS WRITTEN ONTO TAPE 
BY CHECKING THAT THE READ ANO SPACE RECORDS COMMANDS DETECT THE 
TAPE MARK. IN ADDITION, SINCE WRITE TAPE MARK IS TH C . FIRST 
SUBCOMMAND UNOER THE FORMAT COMMAND BEING TESTED, ? IS VERIFIED 
THAT THE CLEAR VOLUME CHECK CCVC) BIT OPERATES PP" °' Y AND THAT 
FORMAT COMMANDS WITH ILLEGAL MODE CODES ARE REJECT t* , 



THE TEST CONSISTS OF THE FOLLOWING 3 SUBTESTS 



J - 



DGNTST 




CLR 


FATFLG 


CLR 


KTFLG 


MOV 


*EPRT2,EPRTSW 


CLR 


K TENABLE 


JSR 


PC.KTOfT 


MUV 


OTS128IU.R0 


JSR 


PCT3TSETUP 


MOV 


Ol.LOOPCNT 


T2tiL00P: 





T4 
ERROR 



FLAG 



j CLEAR FATAL 
jHOLD OFF KT11 

I SECONDARY ERROR MESSAGE 

j TURN KT11 OFF 

;TURN KT1J BACK OFT IF THERE 

j ASCII MESSAGE TO IDENTIFY TEST 

iDO INITIAL TEST SETUP 

j PERFORM 1 ITERATIONS 



CZTKGA TK-25 FRT END f UNC OS 
TEST 4: WRITE/READ TAPE MARK 

10465 

10466 

10467 

10468 

10469 

10470 

10471 

10472 

10475 

10474 

10475 

104 76 

10477 

10478 

104 79 

10460 

10481 

1048? 

10483 

10484 

10485 

10486 

10487 

10488 

10409 

10490 

10491 

10492 

10495 

10494 

10495 

10496 

10497 

10498 

10499 

10500 

10501 

10502 

10505 

10504 

10505 

10506 

10507 

10508 

10509 

10510 

10511 

10512 

10515 

10514 

10515 

10516 

10517 

10518 

105 1.9 

105.'0 

10521 
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SF.Q 257 



{VERIFIES THAT WRITE TAPE MARK COMMANDS OPERATE 
{PROPERLY, ANO THAT READ COMMANOS SUBSEQUENTLY ISSUED 
;T0 DETECT THE WRITTEN TAPE MARKS TERMINATE WITH TAPE 
{STATUS ALERT WITH THE TAPE MARK DETECTED (TMK) STATUS 
{BIT SET. THE FOLLOWING SEQUENCE IS EXECUTED. 



» 



1, 



*2 

J 
i 
t 
{3 



{4 



{6 



;9 



THE CONTROLLER IS INITIALIZED AND TAPE REWOUND. 
THIS SETS THE VOLUME CHECK (VCK) STATUS BIT. 

A WRITE TAPE MARK COMMANO WITH CVC-1 IS ISSUED 
ANO PROPER TERMINATION AND STATUS IS VERIFIED 
(I.E. VCK-0 ANO TMK-1). 

SEVERAL MORE WRITE TAPE MARK COMMANDS , THESE WITH 
CVC-0 ARE ISSUEO ANC PROBER TERMINATION (NORMAL) 
ANO STATUS (TMK) VERIFIED. 

A READ REVERSE COMMANO IS ISSUED ANO PROPER 
TERMINATION (TAPE STATUS ALERT) ANO STATUS (TMK) 
VERIFIED. IT 15 ALSO VERIFIED THAT NO DATA IS 
TRANSFERRED INTU MEhORY. 

A SPACE RECORDS REVERSE COMMANO IS ISSUED ANO 
PROPER TERMINATION (TAPE STATUS ALERT) ANO STATUS 
(TMK) VERIFIED. 

THE TAPE IS REWOUND ANO A READ FORWARD COMMANO IS 
ISSUED AND PP *>ER TERMINATION (TAPE STATUS ALERT) 
ANO STATUS (TMK) VERIFIED. IT IS ALSO VERIFIED 
THAT NO DATA IS TRANSFERRED INTO MEMORY. 

A SPACE RECORDS REVERSE COMMANO THAT CONTAINS A 
RECORD COUNT GREATER THAN 1 IS ISSUED ANO IT IS 
VERIFIED THAT TAPE STATUS ALERT TERMINATION 
OCCURED, TMK-1 ANO THAT RBPCR (RESIDUAL 
BYTE/RECORD COUNTER) CONTAINS THE PROPER NONZERO 
VALUE. THIS OPERATION VERIFIES THAT DETECTION OF 
THE TAPE MARK CAUSES THE SPACE RECORDS OPERATION 
TO BE PREMATURELY TERMINATED, THIS SHOULD LFAVE 
THE POSITION JUST BEFORE THE FIRST RECORD ON 
TAPE, 

TAPE POSITION IS VERIFIED BY ISSUING ANOTHER 
SPACE RECORDS REVERSE COMMANO AND VERIFYING iHAT 
TAPE STATUS ALERT TERMINATION OCCURS, WITH THE 
REVERSE INTO BOT CRIB) STATUS ERROR BIT SET. 

A SPACE RECORDS FORWARD COMMANO THAT CONTAINS A 
RECORD COUNT GREATER THAN 1 IS ISSUED ANO IT IS 
VERIFIED THAT TAPE STATUS ALERT TERMINATION 
OCCURED, TMK-1, ANO THAT RBHCR (RESIDUAL 
BYTE/RECORD COUNTER) CONTAINS THE PROPER NON/fcRU 
VALUE. TE T S OPERATION VERIFIES THAT DETECTION OK 



CZTKGA TK-25 FR 
TEST 4: WRITE/ 


yPrfiPnftc 


10522 








10523 








10524 








10525 








10526 








10527 








10528 








10529 








10530 








10531 


061100 
061100 








061100 


104402 




10532 


061102 


004 737 


065276 


10533 


061106 


004737 


065370 


10534 


061112 


004 737 


065432 


10535 


061116 


012737 


023420 


10536 


061124 


004 737 


016660 


10537 


061130 


103426 




10538 


061132 








061132 


012727 


000250 




061136 


OOOOOO 






061140 


013727 


002116 




061144 


OOOOOO 






061146 


005367 


177772 




061152 


001375 






061154 


005367 


177756 




061160 


001367 




10539 


061162 


00533 7 


063402 


10540 


061166 


001356 




10541 


061170 


004 737 


020116 


10545 


061174 


010001 




10546 


061176 








061176 


104455 






061200 


000621 






061202 


003550 






061204 


011676 




1054 7 


061206 






10548 


061206 


012704 


063210 


10549 


061212 


004737 


010342 


10550 


061216 


103407 




10551 


061220 


004737 


020116 


10555 


061224 


010001 




10556 


061226 








061226 


104456 






061230 


000622 






061232 


004754 






061234 


011676 




10SS7 


061236 








061236 


104406 




10SS8 


061240 


004 737 


010444 


10559 


061244 


103411 




10560 


061246 


016501 


OOOOOO 


10561 


061252 


010004 




10562 


061254 


004737 


020116 


10566 


061260 








061260 


104456 






061262 


000623 





M4 
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SEQ 258 



THE TAPE MARK CAUSES THE SPACE RECORDS OPERATION 
TO BE PREMATURELY TERMINATED. 



BGNSUB 



063402 



10?: 



JSR 


PC.T28REST 


JSR 


PC.T28RT2 


JSR 


PC.T28RT3 


MOV 


010000. .T28DLY 


JSR 


PC.SQFINIT 


BCS 


20$ 


DELAY 


250 



DEC 


T28DLY 


BNE 


10* 


JSR 


PC.FATCHK 


MOV 


R0.R1 


ERRDF 


ERRNO.SFIERR.SFIMSU 



20$ t 



MOV 


*T2BPACKET,R4 


JSR 


PC.WRTCHR 


BCS 


23* 


JSR 


PC.FATCHK 


MOV 


R0.R1 


ERRHRD 


ERRNO.WRTMSG.SFIMSG 



23$: 



CKLOOP 

JSR 
BCS 
MOV 
MOV 
JSR 
ERRHRD 



PC, REWIND 

301 

TSSR(R5),R1 

R0,R4 

PC.FATCHK 

ERRN0.T28RWN.PKTSSR 



>>>>>>>>>>>> 



>>>>>>>> 



c$bsub 



BEGIN SUBTEST >>>> 

T4.1: 

TRAP 

{SET COMMAND PACKET 

iSET UP OTHER COMMAND PACKET 

I SET UP OTHER COMMAND PACKET 

j SET UP DELAY ROUTINE 

;D0 INITIALIZE ON CONTROLLER 

;BR IF INIT WAS OK 

j DELAY ABOUT .25 SECONDS 

MOV 
.WORD 
MOV 
.WORD 
DEC 
BNE 
DEC 
BNE 

iBUMP DELAY ROUTINE DOWN 

iBR. if MORE DELAY TIME. LEFT 

I INC AND CHECK FOR MORE THAN 

{CONTENTS OF TSSR REGISTER 

i FATAL ERROR TSSR WAS NOT OK 

TRAP CSERDF 

.WORD 401 
.WORD SHEHR 
.WORD SFIMSG 

j SUBROUTINE NEEDS PACKET ADDRESS 
j ISSUE WRITE CHARACTERISTICS 
sBR, IF COMMANO ISSUED OK 
I INC ANO C^ECK FOR MORE 
{SAVE CONTENTS OF TSSR 
{WRITE CHARACTERISTIC 



0250, (PC)* 



LIDLY.CPO* 



-6CPC) 

. 4 

-22CPC) 

.-20 



25 ERRORS 



THAN 25 


ERRORS 


FAILED 




TRAP 


CiERURD 


.WORD 


401 1 


.WORD 


UitlMSli 


.WORD 


SFIMSG 



iLOOP IF SELECTED 

TRAP CJCLPl 

j CALL, TAPE REWIND COMMAND 

ieR. IF NO PROBLEM 

iGF.T TSSR 

jSAVE PACKET ADDRESS 

» INC AND CHECK FOR MORE THAN 25 ERRORS 

j REWIND NOT ACCEPTED 

TRAP CU-KHKD 
.WORD 403 



CZTKGA TK-25 FRT END FUNC 43 
TEST 4: WRITE/READ TAPE MARK 



MACRO M1200 20-APR-84 08:13 



N4 

PAGE 124-2 



SEQ 259 



10567 

10568 
10569 
10570 
10571 
10572 
10573 
10577 



10576 

10579 
10580 
10581 
10582 
10586 
10587 



10588 

10589 
10590 
10591 
10592 
10593 
10594 
10595 
10596 
10597 
10601 



10602 

10603 
10604 
10605 
10606 
10607 
10608 
10612 



10613 



061264 
061266 
061270 
061270 
061272 
061276 
061300 
061304 
061306 
061310 
061314 
061314 
061316 
061320 
061322 
061324 
061324 
061326 
061332 
061336 
061340 
061344 
061346 
061346 
061350 
061352 
061354 
061356 
061356 
061360 
061366 
061372 
061376 
061402 
061406 
061412 
061414 
061416 
061422 
061422 
061424 
061426 
061430 
061432 
061432 
061434 
061440 
061442 
061446 
061450 
061452 
061456 
061456 
061460 
061462 
061464 
061466 



064331 
011710 

104406 
013701 
010102 
052702 
020102 
001406 
004737 

104456 
000624 
064207 
016360 

104406 
012704 
004737 
103407 
004737 
010001 

104456 
000625 
004754 
011676 

104406 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000626 
064453 
011710 

104406 
013701 
010102 
042702 
020102 
001406 
004737 

104456 
000627 
064532 
016360 



30$: 



CKLOOP 



063236 
000002 

020116 



MOV 


T28BFR+6.R1 


1 


MOV 


R1.R2 


1 


BIS 


06IT1.R2 


i 


CMP 


R1.R2 


; 


BEQ 


40$ 


i 


JSR 


PC.FATCHK 


J 


ERRHRD 


ERRN0.T28B0T, EXPREC 


} 



40t: 



C.<L00P 



063210 
010342 

020116 



68$: 



140011 
063340 
177776 
017134 
000000 
000200 



020116 



063340 



70$: 



06323" 
000020 

020116 



.WORD 
.WORD 
jLOOP IF SELECTED 

TRAP 

PICK \JP XSTO 

SET UP EXPECTED 

SET BOT BIT IN EXPECTED 

DOES EXP - REC'D 

BR. IF EQUAL COK) 

INC AND CHECK FOR MORE THAN 25 

TAPE NOT AT 80T AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
{LOOP IF SELECTED 

TRAP 



T26RWN 
PKTSSR 

C$CLP1 



ERRORS 

C$ERHRD 
^04 

T28B0T 
EXPREC 

C$CLP1 



MOV 


$T28PACKET.R4 


{SUBROUTINE NEEDS PACKET ADDRESS 


JSR 


PC.WRTCHR 


jISSUE WRITE CHARACTERISTICS 




BCS 


68$ 


jBR, IF COMMAND ISSUED OK 




JSR 


PC.FATCHK 


{INC ANO CHECK FOR MORE THAN 25 


ERRORS 


MOV 


R0.R1 


{SAVE CONTENTS OF TSSR 




ERRHRD 


ERRNO.WRTMSG.SFIMSG 


{WRITE CHARACTERISTIC FAILED 








T.3AP 


CIERHRP 






.WORD 


405 






.WORD 


WRTMSG 






.WORD 


SFIMSG 


CKLOOP 




{LOOP IF SELECTED 





TRAP 



C$CLP1 



MOV 


0140011, T28PK3 


jWRIT 


MOV 


OT28PK3.R4 




{SET 


MOV 


R4.TSDBCR5) 




jISSU 


JSR 


PC.WAITF 




;WAIT 


MOV 


TSSRCR5),R1 




jGET 


MOV 


4SSR.R2 




{SET 


CMP 


R1.R2 




;ARE 


BEQ 


70$ 




{BR. 


JSR 


PC.FATCHK 




{INC 


ERRHRD 


ERRN0.T28WDC 


PKTSSR 


jTSSR 



t TAPE MARK.ACX.CVC-1 COMMAND 
UP R4 WITH PACKET ADDRESS 
F. COMMANO 

FOR SSR TO SET 
TSSR CONTENTS 
UP EXPECTED 
THEY EQUAL 
IF OK 
ANO CHECK FOR MORE THAN 25 ERRORS 

INCORRECT AFTER WRITE TAPE MARK 



80 V: 







TRAP 


C$ERHRD 






.WORD 


406 






.WORD 


T28WDC 






.WORD 


PKTSSR 


CKLOOP 




{LOOP IF SELECTED 








TRAP 


CICLPi 


MOV 


T28BFR+6.R1 


{PICK UP XSTO (VCK CHECK) 




MOV 


R1.R2 


{SET UP EXPECTED 




BIC 


0BIT4.R2 


iVCK SHOULD BE 




CMP 


R1.R2 


sIS VCK SET CORRECTLY 




BEQ 


80$ 


5 BR. IF VCK IS CLEAR 




JSR 


PC.FATCHK 


j INC AND CHECK FOR MORE THAN 25 


ERRORS 


ERRHRD 


ERRN0.T28VCK, EXPREC 


jVCK WAS NOT CLEAR AFTER CVC-1 








TRAP 


C$ERHRO 






.WOP'" 


407 






.WORD 


T28VCK 






.WORD 


EXPREC 


CKLOOP 




{LOOP IK SELECTED 





CZTKGA TK-25 FRT END FUNC #3 
TEST 4* WRITE/READ TAPE MARK 



MACRO M1200 20- APR -64 08tl3 



B5 

PAGE 124-3 



SEQ 260 



10614 
10615 
10616 
10617 
10618 
10619 
10623 



10624 

10625 
10626 
10627 
10628 
10629 
10633 



10634 

10635 
10636 
10637 
106311 
10639 
10640 
10644 



10645 

10646 
10647 
10648 
10649 
10650 
10651 
10652 
10653 
10654 
10655 
10659 



10660 
10661 



061466 
061470 
061474 
061476 
061502 
061504 
061506 
061512 
061512 
061514 
061516 
061520 
061522 
061522 
061524 
061530 
061532 
061534 
061540 
061544 
061544 
061546 
061550 
061552 
061554 
061554 
061556 
061562 
061564 
061570 
061572 
061574 
061600 
061600 
061602 
061604 
061606 
061610 
061610 
061612 
061616 
061624 
061630 
061634 
061640 
061644 
061650 
061652 
061654 
061660 
061660 
061662 
061664 
061666 
061670 
061670 
061672 



104406 
013701 
010102 
052702 
020102 
001406 
004737 

104456 
000630 
064605 
016360 

104406 
004737 
103411 
010004 
016501 
004737 

104456 
00OS31 
064331 
011710 

104406 
013701 
010102 
052702 
020102 
001406 
004737 

104456 
000632 
064207 
016360 

104406 
012703 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
0O4737 

104456 
000633 
064453 
011710 

104406 
013701 



063236 
100000 

020116 



90$i 



MOV 
MOV 
JIS 
CMP 
BEQ 
JSR 
ERRHRD 



CKLOOP 



T268FR*6,R1 

R1.R2 

#BIT15,R2 

R1.R2 

901 

PC.FATCHK 

ERRN0.T20TMK, EXPREC 



010444 



OOOOOO 
020116 



JSR 


PC.REWINO 


BCS 


1301 


MOV 


R0.R4 


MOV 


TSSR(R5)»R1 


JSR 


PC.FATCHK 


ERRHRD 


ERRN0.T28RWN.PKTSSR 



06S236 

000002 

020116 



130$; CKLOOP 

MOV 
MOV 
BIS 
CMP 
BEQ 
JSR 
ERRHRD 



T288FR*6.R1 

R1.R2 

♦BIT1.R2 

R1.R2 

1401 

PC.FATCHK 

ERRN0.T28B0T, EXPREC 



000012 
140011 
063340 
177776 
017134 
OOOOOO 
000200 



020116 



063340 



063236 



1401: 


CKLOOP 




1501: 


MOV 


#10. ,R3 




MOV 


♦140011 .T2SPK3 




MOV 


♦T28PK3.R4 


1551 j 


MOV 


R4,TSOB(R5) 




JSR 


PC.WAITF 




MOV 


TSSR(R5).R1 




MOV 


♦SSR.R2 




CMP 


R1.R2 




BEQ 


1651 




JSR 


PC.FATCHK 




ERRHRD 


ERRN0.T28WOCPKTSSR 


165 1 J 


CKLOOP 






MOV 


Tg6BFR*6«Rl 



TRAP 

iPICK UP XSTO (CHECK TMK ) 

»SET UP EXPECTED 

I TMK SHOULD 3E SET 

> WAS TMK SET 

jBR. IF TMK WAS SET 

I INC AND CHECK FOR MORE THAN 25 

l TMK WAS NOT SET AFTER WHT TAPE 

TRAP 
.WORD 
.WORO 
.WORD 

lLOOP IF SELECTED 

TRAP 

iCALL TAPE REWIND COMMAND 

l BR, IF NO PROBLEM 

jSAVE PACKET ADORESS 

iGET TSSR STATUS 

I INC AND CHECK FOR MORE 

I REWIND NOT ACCEPTED 



CICLP1 



ERRORS 

MARK 

CIERHRO 

406 

T28TMK 

EXPREC 

CICLPl 



THAN 25 ERRORS 



lLOOP IF SELECTED 



TRAP 
.WORD 
.WORO 
.WORD 

TRAP 



CIERHRO 
40- 

T26HWN 
PKT5SR 

CICLPl 



iPICK UP XSTO 

iSET UP EXPECTED 

iSET BOT BIT IN EXPECTED 

»D0€S EXP - REC'O 

iBR. IF EQUAL (OK) 

I IMC ANO CHECK FOR MORE THAN 23 ERRORS 

I TAPE NOT AT BOT AFTER REWINO 

TRAP CIERHtO 

.WORO 410 
.WORD T2680T 
.WORO EXPREC 

lLOOP IF SELECTED 

TRAP CICLP1 

iNUMBER OF RECOROS TO WRITE TM 

iWRITE TAPE MARK.ACK.CVC-1 CO*lAND 

iSET UP R4 WITH PACKET ADDRESS 

I ISSUE COMMAND 

jWAIT FOR SSR TO SET 

iPICK UP TSSR 

»SET UP EXPECTED (SSR ONLY) 

»WAS STATUS GOOO 

iBR. IF TERMINATION WAS 

I INC ANO CHECK FOR MORE 

i TSSR NOT CORRECT AFTER 



GOOO 

THAN 25 ERRORS 
WRT TAPE M. 



lLOOP IF SELECTED 
iPICK \J? XSTO 



TRAP 

.WORD 
,W0RO 

.WORD 

TRAP 



CiFRHRD 
411 

T28W0C 
PKTSSR 

c*a*H 
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SEQ 261 



10662 
10663 
10664 
10665 
10666 
10670 



10671 

10672 
10673 
10674 
10675 
10676 
10677 
10678 
10679 
10680 
10681 
10682 
10683 
10684 
10685 
10686 
10690 



10691 

10692 
10o93 
10694 

10695 
10696 
10697 
10701 



10/03 
10704 
10705 
10706 
10707 
10711 



061676 
061700 
061704 
061706 
061710 
061714 
061714 
061716 
061720 
061722 
061724 
061724 
061726 
06173C 
061732 
0C1736 
061742 
061750 
061756 
061762 
061770 
061774 
062000 
062004 
062010 
062012 
062014 
062020 
062O20 
06202.? 
062024 
062026 
062030 
062O3O 
062032 
062036 
062040 
062044 
062046 
062050 
062054 
062054 
062O56 
062060 
062062 
062064 
062064 
062066 
062O72 
C62076 
062100 
062102 
062106 
062106 
062110 
062112 
068114 



010102 
052702 
020102 
001406 
004737 

104456 
000634 
064605 
016360 

104406 
005303 
001337 
012700 
004737 
013737 
012737 
012704 
013737 
010465 
004737 
016501 
012702 
020102 
001406 
0O4737 

104456 
000635 
0*3544 
011710 

1O4406 
013701 
010102 
052702 
020102 
001406 
0O4737 

104456 
000636 
064657 
016360 

104406 
017701 
012702 
020102 
001406 
004737 

104456 

000637 
065072 
016360 



100000 
020116 



177777 
020410 
003072 
140401 
063340 
000024 
177776 
017134 
000000 
100204 



020116 



063236 
100000 

020116 



121000 
177777 



020116 



MOV 
BIS 
CMP 
BEQ 
JSR 
ERRHRO 



1801? CKLOOP 



063342 
063340 

063346 



200$: 



210$: 



R1.R2 

♦6IT15.R2 

R1.R2 

180$ 

PC.FATCHK 

ERRN0.T28TMK, EXPREC 



DEC 


R3 


9NE 


155$ 


MOV 


♦177777, RO 


JSR 


PC.FILLMEM 


MOV 


FREE.T28WB 


MOV 


♦140401, T28PK3 


MOV 


♦T28PK3.R4 


MOV 


20..T28SZ 


MOV 


R4,T506(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5).R1 


MOV 


♦SSR!SC!BIT2.R2 


CMP 


R1.R2 


BEQ 


200$ 


JSR 


PC.FATCHK 


ERRHRO 


ERRN0.T28RDF.PKTSSR 



iSET UP EXPECTED 

iSET TMK BIT IN EXPECTEO 

I DOES EXP - REC'D 

iBR, IF EQUAL (OK) 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

i TMK NOT SET AFTER WRT TAPE MARK 

TRAP CIERHRD 

.WORD 412 
.WORD T28TMK 
.WORD EXPREC 

lLOOP IF SELECTED 

TRAP ClCLPl 

,BUMP COUNTER DOWN 

I BR. IF LESS THAN 10 TAPE MARKS 

iVALUE TO WRITTEN TO MEMORY 

t FILL MEM WITH ALL ONES 

I STARTING READ BUFFER AOORESS 

IRE.AO RE VERSE. ACK, COMMAND 

i SET UP R4 WITH PACKET AOORFSS 

I SET UP RECORO SIZE IN PACKET 

I ISSUE COMMANO 

iWAIT FOR SSR TO SET 

iGET TSSF. CONTENTS 

iSET UP EXPECTED 

I ARE THEY EQUAL 

iBR, IF OK 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 

iTSSR INCORRECT AFTER WRITE DATA 







TRAP 


CIERHRD 






.WORD 


413 






.WORD 


T28RDF 






.WORD 


PKTSSR 


CKLOOP 




lLOOP IF SELECTED 








TRAP 


C»CLP1 


MOV 


T28BFR*6.R1 


iPICK UP XSTO 




MOV 


R1.R2 


iSET UP EXPECTED 




BIS 


*Biri5.R2 


iTMK SHOULD BE SET 




CMP 


R1.R2 


lIS TMK SET 




BEQ 


210$ 


:BR, IF TMK WAS SET (GOOD) 




JSR 


PC.FATCHK 


lINC ANO CHECK FOR MORE THAN 25 


ERRORS 


ERRHRD 


ERRN0.T28RRM, EXPREC 


iTMK NOT SET AFTER READ REV 








TRAP 


CIERHRD 






.WORD 


414 






.WORD 


T28RRH 






.WORD 


EXPREC 


CKLOOP 




lLOOP IF SELECTED 








TRAP 


CICLP1 


MOV 


fiFREE.P) 


iFIRST LOC IN REAO BUFFER 




MOV 


♦177777, R2 


lEXPECTED IF NO DATA TRANS. 




CMP 


R1.R2 


lOlD ANY DATA GET TRANSFERRED 




BEQ 


220$ 


iBR. IF NO DATA TRANS (GOOD) 




J'JR 


PC.FATCHK 


lINC ANO CHECK FOR MORE THAN 25 


ERRORS 


ERRHRD 


ERRNQ.T28DTR .EXPREC 


l DATA TRANSFERRED ON READ TAPE 


MARK 






TRAP 


CIERHRD 






.WORD 


415 






.WORD 


T280TR 






.WORD 


EXPREC 



D5 



S 



CZTKGA TK 25 FRT ENO FLNC *3 
TEST 4: WRITE/3EAD TAPE MARK 



10712 


062116 








062116 


104406 




10713 


062120 


012737 


100410 063340 


10714 


062126 


012737 


000001 063342 


10715 


062134 


012704 


063340 


10716 


062X40 


010465 


177776 


107,7 


062144 


0O4 73V 


017134 


10718 


062150 


016501 


000000 


10719 


062154 


012702 


100204 


10720 


062160 


020102 




10721 


062162 


001406 




10722 


062164 


004737 


020116 


10726 


062170 








062170 


104456 






062172 


0OO64O 






062174 


063625 






062176 


011710 




10727 


062200 








062200 


104406 




10728 


062202 


013701 


063236 


5 0729 


062206 


010102 




10730 


0622K 


052702 


100000 


10731 


062214 


020102 




10732 


062216 


001406 




10733 


062220 


004737 


020116 


10737 


062224 








062224 


104456 






062226 


000641 






062230 


064735 






062232 


016360 




10738 


062234 








062234 


104406 




10739 


062236 


0O4737 


010444 


10740 


062242 


103411 




10741 


062244 


010004 




10742 


062246 


016501 


oooooo 


10743 


062252 


0O4737 


020116 


10747 


062256 








062256 


104456 






062260 


0OO642 






062262 


06433i 






062264 


011710 




10748 


062266 








062266 


104406 




10749 


062?70 


013701 


063236 


10750 


06;»274 


010102 




10751 


062276 


052702 


000002 


10752 


062^02 


020102 




10753 


062304 


0O1406 




10754 


062306 


0O4737 


020116 


10758 


062512 








062312 


104456 






062314 


0OO64 3 






062316 


064207 






062320 


016360 




10759 


062322 








062322 


104406 
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220$ j CKLOOP 



MOV 


0100410, T28PK3 


MOV 


♦1.T28RB 


MOV 


*T?8PK3,R4 


MOV 


R4,TS0e(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


*SSR!SC!BIT2 R2 


CMP 


R1.R2 


BEQ 


2221 


JSR 


PC.KATCHK 


ERRHRD 


ERRN0,T2QRDG. PKTSSR 



222*; CKLOOP 



MOV 


T2SBFR*6,R1 


MOV 


R1^2 


BIS 


#eiT15,R2 


CMP 


R1,R2 


BEQ 


2261 


JSR 


PC.FATCHK 


ERRHRD 


ERRN0.T28RRN.EXPREC 



226$: CKLOOP 



JSR 


PC, REWIND 


BC5 


230$ 


MOV 


R0.R4 


MOV 


TSSRCR5),R1 


JSR 


PC,FATCHK 


ERRHRD 


ERRN0,T28RWN, PKTSSR 



2301 j CKLOOP 



MOV 


T288FR>6,R1 


MOV 


R1.R2 


BIS 


46111, R2 


CMP 


R1.R2 


BCU 


,?40$ 


JSR 


PC.FATCHK 


ERRHRD 


ERRNO,T28B0T,EXPREC 



SEQ 262 



I LOOP IF SELECTED 

TRAP C$CLP1 
l SPACE REVERSE, ACK, COMMAND 
jNUMBER OF RECORDS TO SPACE BACK 
I SET UP R4 WITH PACKET ADDRESS 
I ISSUE COMMAND 
iWAIT FOR SSR TO SET 
iGET TSSR CONTENTS 
I SET UP EXPECTED 
I ARE THtY EQUAL 
»BR, IF OK 

j INC AND CHECK FOR MORE THAN 25 ERRORS 
I TSSR INCORRECT AFTER SPACE Cf£. 



lLOOP IF SELECTED 



TRAP 


C$ERHRD 


.WORD 


416 


.WORD 


T28RDG 


.WORD 


PKTSSR 



TRAP 



CSCLPl 



»PICK UP XSTO 

I SET UP EXPECTED 

iTMK SHOULD BE SET 

»IS TMK SET 

iBR, IF TMK WAS SET CGOOO) 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 

I TMK NOT SET AFTER SPACE REV 

TRAP 
.WORD 
.WORD 
WORD 

i LOOP IF SELECTED 

TRAP 

I CALL TAPE REWIND COMMAND 

j BR. IF NO PROBLEM 

l SAVE PACKET ADORESS 

I GET TSSR 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

I REWIND NOT ACCEPTED 



jLOOP IF SELECTED 



CfERHRD 
417 

T28RRN 
EXPREC 

C$CLP1 



TRAP 


C$ERHRD 


.WORD 


418 


.WORD 


T28RWN 


.WORD 


PKTSSR 



TRAP 



C$CLP1 



240$ j CKLOOP 



jPICK UP XSTO 

iSET UP EXPECTED 

I SET BOT BIT IN EXPECTED 

lOOES EXP - REC'D 

iBR, IF EQUAL (OK) 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 

I TAPE NOT AT BOT AFTER REWIND 

TRAP C$ERHRD 
.WORD 419 
.WORD T28B0T 
.WORD EXPRF.C 

jLOOP IF SELECTED 

TRAP C$CLP1 
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SEQ 263 



10760 
10761 
10762 
10763 
10764 
10765 
10766 
10767 
10768 
10769 
10770 
10771 
10772 
10776 



10777 

10778 
10779 
10780 
10781 
10782 
10783 
10787 



10788 

10789 
1079O 
10791 
10792 
10793 
10797 



10796 

10799 
10800 
10801 
10802 
10803 
10604 
10805 
10806 
10807 
10808 
10812 



062324 
062330 
062334 
062342 
062350 
062354 
062362 
062366 
062372 
062376 
062402 
062404 
062406 
062412 
062412 
062414 
062416 
062420 
062422 
062422 
062424 
062430 
062432 
062436 
062440 
062442 
062446 
062446 
062450 
062452 
062454 
062456 
062456 
062460 
062464 
062470 
062472 
062474 
062500 
0625O0 
062502 
0625O4 
062506 
062510 
062510 
062512 
062520 
062526 
062532 
062536 
062542 
062546 
062552 
062554 
062556 
062562 
062562 



012700 
004737 
013737 
012737 
012704 
013737 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000644 
064116 
011710 

104406 
013701 
010102 
052702 
020102 
001406 
004737 

104456 
000645 
065014 
016360 

104406 
017701 
012702 
020102 
001406 
004737 

104456 
0OO646 
065072 
016360 

104406 
012737 
012737 
012704 
010465 
004737 
016501 
0x2702 
020102 
001406 
004737 

104456 



177777 
020410 
003072 
100001 
063340 
000024 
177776 
017134 
000000 
100204 



020116 



063236 
100000 

020116 



120406 
177777 



020116 



ioc^io 

000005 
063340 
177776 
017134 
OOOOOO 
1OO204 



020U6 



063342 
063340 

063346 



MOV «177777 4 R0 

JSR PC.FILLMEM 

MOV FREE.T28RB 

MOV ♦1OOO01.T28PK3 

MOV *T28PK3,R4 

MOV 20..T28S2' 

MOV R4,TS0e(R5) 

JSR PC.WAITF 

MOV TSSR(R5),R1 

MOV *SSR!SC!BIT2,R2 

CMP R1.R2 

BEQ 245$ 

JSR PC.FATCHK 

ERRHRD ERRNO , T28WDE , PKTSSR 



245$: 



247$; CKLOOP 



250 1: 



063340 
063342 



iVALUE TO WRITTEN TO MEMORY 

jFILL MEM WITH ALL ONES 

i STARTING READ BUFFER ADDRESS 

i READ FORWARD , ACK , COMMANO 

I SET UP R4 WITH PACKET ADDRESS 

I SET UP RECORD SIZE IN PACKET 

j ISSUE COMMANO 

iWAIT FOR SSR TO SET 

I GET TSSR CONTENTS 

I SET UP EXPECTED 

»ARE THEY EQUAL 

|BR, IF OK 

j INC AND CHECK FOR MORE THAN 25 ERRORS 

I TSSR INCORRECT AFTER WRITE DATA 











TRAP 


CJERHRD 










.WORD 


420 










.WORD 


T28W0E 










.WORD 


PKTSSR 


CKLOOP 




lLOOP IF SELECTED 




TRAP 


C$CLP1 


MOV 


T28BFR*6,R1 


»PICK UP XSTO 








MOV 


R1.R2 


iSET UP EXPECTED 








BIS 


♦eiT!5,R2 


1 TMK SHOULD BE SET 








CMP 


R1.R2 


lIS TMK SET 








BFQ 


247* 


tBR, IF TMK WAS SE1 


' (GOOD) 




• ;SR 


PC.FATCNK 


1 INC ANO CHECK FOR 


MORE 


THAN 25 


ERRORS 


E3RHRD 


ERRf JO, T28RRP. EXPREC 


jTMK NOT SET AFTER 


READ 


REV 





lLOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



CIERHRD 
421 
T28RRP 
EXPREC 

C$CLPl 



MOV 


8FREE.R1 


i FIRST LOC IN READ BUFFER 


MOV 


♦177777, R2 


l EXPECTED IF NO DATA TRANS, 


CMP 


R1.R2 


j DID ANY DATA GET TRANSFERRED 


BEQ 


250$ 


|BR, IF NO DATA TRANS CGOOO) 


JSR 


PC.FATCHK 


lINC AND CHECK FOR MORE THAN 25 ERRORS 


ERRHRD 


ERRNO, T28DTR, EXPREC 


iDATA TRANSFERRED ON READ TAPE MARK 

TRAP C$ERHRD 
.WORD 422 
.WORD T28DTR 
.WORD EXPREC 


CKLOOP 




lLOOP IF SELECTED 

TRAP CICLP1 


MOV 


#100410* T28PK3 


1 SPACE RE VERSE. ACK, COMMAND 


MOV 


♦5.T28RB 


iNUMBER OF RECORDS TO SPACE BACK 


MOV 


♦T28PK3.R4 


iSET UP R4 WITH PACKET ADDRESS 


MOV 


R4, TSDBCR5) 


1 ISSUE COMMANO 


JSR 


PC.WAITF 


iWAIT FOR SSR TO SET 


MOV 


TSSR(R5),R1 


iGET TSSR CONTENTS 


MOV 


#SSR!SC!BIT2.R2 


j SET UP EXPECTED 


CMP 


R1.R2 


1 ARE THEY EQUAL 


BEQ 


260$ 


jBR. IF OK 


JSR 


PC.FATCHK 


lINC ANO CHECK FOR MORE THAN 25 ERRORS 


ERRHRD 


ERRNO, T28RDG, PKTSSR 


j TSSR INCORRECT AFTER SPACE REV CMO, 

TRAP C$ERHRD 
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SEQ 265 



10860 

10861 
10862 
10863 
10864 
10865 
10866 
10867 
10868 
10869 
10870 
10874 



10875 

10876 

10877 
10878 
10879 
10880 
10881 
10885 



10886 

10887 
10888 
10889 

10890 
10891 
10895 



10896 
10897 



10698 
10899 

109OO 
10901 
109O2 
10903 
10904 
10905 
10906 



062774 

062776 

062776 

O630O0 

063006 

063014 

063020 

063024 

063030 

063054 

063040 

063042 

063044 

063050 

063050 

063052 

063054 

063056 

063060 

063060 

063062 

063066 

063070 

063074 

063076 

063100 

06310= 

063104 

0631 o 

0631; 

063112 

063?.? 4 

0631:*. 

06311 6 

063122 

063126 

063 '30 

0M13? 

0631^6 

063136 

063140 

063142 

063144 

0631*6 

063' 46 

063150 

06 J 150 

063150 

065152 

063160 

063162 

063166 



063166 
063172 



016360 

104406 
012737 
012737 
012704 
010465 
094 737 
016501 
012702 
020102 
001406 
004737 

104456 
000654 
063544 
016360 

104406 
013701 
010102 
0^2702 
02010? 
C01406 
004737 

104456 
000655 
065014 
016360 

104406 
013701 
012702 
020102 
001406 
004737 

104456 
O0O656 
063461 
016360 

104406 



104403 
023727 
002402 
004737 



004/3 7 
103002 



1C0010 
000005 
063340 
177776 
017134 
000000 
100204 



020116 



063236 

100000 

020116 



063234 
000004 



020116 



063340 
063342 



300$: CKLOOP 

MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
JSR 
ERRHRD 



310$: 



320$ j CKLOOP 



330$: 



002170 
020170 

017372 



000031 



999$j 

1 



#100010, T28PK3 

♦5.T28RB 

•T28PK3.R4 

R4.TSD8CR5) 

PC.WAITF 

TSSRCR5),R1 

*SSR!SC!BIT2.R2 

R1.R2 

310$ 

PC.FATCHK 

ERRN0.T28RDF, EXPREC 



•WORD EXPREC 
I LOOP IF SELECTED 

TRAP C$CLP1 
, SPACE FORWARD # ACK, COMMANO 
iNUMBER OF RECORDS TO SPACE FORW. 
I SET UP R4 UITH PACKET ADDRESS 
j ISSU€ COMMANO 
i WAIT FOR SSR TO SET 
iGET TSSR CONTENTS 
a SET UP EXPECTED 
j ARE THEY EQUAL 
|BR. IF OK 

l INC AND CHECK FOR MORE THAN 25 ERRORS 
j TSSR INCORRECT AFTER SPACE CMO. 











TRAP 


C$ERHRD 










.WORD 


428 










.WORD 


T28RDF 










.WORD 


EXPREC 


CKLOOP 




lLOOP IF SELECTED 




TRAP 


C$CLP1 


MOV 


T28BFR*6,R1 


»PICK UP XSTO 








MOV 


R1.R2 


iSET UP EXPECTED 








SIS 


#eiT15.R2 


iTMK SHOULD BE SET 








CMP 


R1.R2 


j IS TMK SET 








BEQ 


320$ 


I BR. IF TMK WAS SE1 


' (GOOO) 




JSR 


PC.FATCHK 


lINC AND CHECK FOR 


MORE 


THAN 25 


ERRORS 


ERRHRD 


ERRN0.T28RRP, EXPREC 


;TMK NOT SET AFTER 


READ 


REV 





TRAP C$ERHRD 

.WORD 429 

.WORD T28RRP 

.WORD EXPREC 
I LOOP IF SELECTED 

TRAP C$CLP1 



MOV 


T28BFR*4,Rl 


jPICK uP RESIDUAL BYTE COUNTER 




MOV 


W, ,R2 


I SHOULD BE THE DIFFERENCE 




CMP 


R1.R2 


iIS COUNTER CORRECT 




BEQ 


330$ 


i^fi, IF COUNTER CORRECT 




JSR 


PC.FATCHK 


i.'NC AND CHECK FOR MORE THAN 25 


ERRORS 


ERRHRD 


ERRN0.T28PBP, EXPREC 


bRKSIDUAL BYTE COUNTER NOT CORRECT 






TRAP 


C$ERHRD 






.WORD 


430 






.WORD 


T28PBP 






.WORD 


EXPREC 


CKLOOP 




♦LOOP IF SELECTED 








TRAP 


CICLP1 


ENOSUB 




;<<<<<<<<<<< END SUBTEST >>>>>>>>>>> 






L 10075: 








TRAP 


c$Esue 


CMP 


FATFLG.*25, 


iIS ERROR COUNT AT 25 




BLT 


999$ 


iBR. IF LESS THAN 25 




JSR 


PC.CKOROP 


|TRY TO DROP THE UNIT 





JSR PC.TSTLOOP 
BCC 163$ 



»D0 WE NEED TO ITLRATL TEST 
l BR. IF NO LOOP REQUIRED 



H5 



CZTKGA TK-25 FRT END FUNC <?3 
TEST 4: WRITE/READ TAPE MAftK 
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S£Q 266 



10907 063174 000137 061100 
10906 063200 
10909 O63200 

063200 1044?> 

063202 002252 



163$; 



JMP 
EXIT 



T28L00P 
TST 



j EXECUTE AGAIN 
lALL DONE THIS TEST 



TRAP 
.WORD 



CIEXIT 
L10074-. 



CZTKGA TK-25 FRT END FUNC M 
TEST 4: WRITE/READ TAPE MARK 



10911 

10912 

10913 

10915 

10917 

10918 

10919 

10920 

10921 

10922 

10923 

10924 

10925 

10926 

10927 

10928 

10929 

10930 

10932 

10934 

10935 

10936 

10937 

10938 

10939 

10941 

10943 

10944 

10945 

10946 

1094 7 

10948 

10949 

10950 

10951 

10952 

10953 

10954 

10955 

10956 

10957 

10958 

10959 

10960 

10961 

10962 

10963 

10964 

10965 

10966 

10967 

10968 

10969 

10970 

10971 

109 72 

10973 



0632O4 
063210 
063210 
063212 
063214 
063216 
063220 
063220 
063222 
063224 
063226 
063230 



063312 
063320 
063320 
063322 
063324 
063326 

063330 

063340 
063340 
063542 
063342 
063344 
063346 



063350 
063350 
063351 
063352 
063354 



063356 
C^56 
C .360 
Oo3362 
063364 
063366 
063370 
(•633 72 
063374 



100004 
063220 
000000 
OOO012 

063230 
000000 
000024 
000000 



100006 
063350 
000000 
000006 



100005 

003072 
O0OOO0 
000000 



010 

200 

000000 

000000 



101411 
102011 
103411 
177777 
100011 
100411 
101011 
177777 



15 
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{LOCAL STORAGE FOR THIS TEST 

i - 



SEQ 267 



.BLKB 


10-<. -T 


T28PACKET: 




.WORD 


100004 


.WORD 


T28DATA 


.WORD 





.WORD 


10. 


T28DATA} 




.WORD 


T28BFR 


.UORO 





.WORD 


20. 


.WORD 





T28BFR: .BLKW 


25. 



{WRITE SUBSYSTEM MEMORY COMMAND PACKET 
.BLKB 10-<.-TUV2A£7> 



T28PK2: 








.WORD 


100006 




.WORD 


T28BF2 




.WORD 







,WO«D 


6, 




,BLKB 


10-<. -TUV2A67> 


T28PK3: 








.WORD 


100005 


T28RB: 






T28W6: 


.WORD 


FREE 




.WORD 





T28SZ: 


.WORD 





r 


.EVEN 




i 

I 

T28BF2: 






T28BS0: 


.BYTE 


10 


T28BS1: 


.BYTE 


200 


T28S2: 


.WORD 





T28S3: 


.WORD 





i 


.EVEN 




;TAPE MOTION PACKET COMMAND VA 


T28IMV: 








.WORD 


101411 




.WORD 


102011 




.WORD 


103411 




.WORD 


177777 


T28RN: 


.WORD 


100011 


T28WDR: 


.WORD 


100411 


T28CUN: 


.WORD 


101011 




.WORD 


177777 



{COMMAND PACKET FOR TEST 

{WRITE CHARACTERISTICS COMMANO, WITH IE, ACK 

{ADDRESS Of CHARACTERISTICS BLOCK 

{STARTING VALUE OF BLOCK SIZE 
{CHARACTERISTICS UATA BLOCK 
{ADDRESS OF MESSAGE BUFFER 

{LENGTH OF MESSAGE BUFFER 

{MESSAGE BUFFER 



{WRITE SUB SYS MEM COMMAND, IE AND ACK 
{ADDRESS OF SELECT BLOCK DATA 

{SIZE OF DATA PACKET 



{REREAD COMMAND, ANO ACK 
{ADDRESS OF WRITE BUFFER 
{SIZE OF BUFFER (EXTENT) 



{BSELO AREA 
lBSEl.1 AREA 
iSF.L 2 AREA 
{DATA AREA 



{ILLEGAL MODE BITS TEST DATA 



{WRITE TAPE MARK COMMANO 
{ERASE COMMANO 
{WRITE TAPE MARK RETRY 
,END OF DATA 



J5 



CZTKGA TK-25 FRT END FUNC $3 
TEST 4; WRITE/READ TAPE NARK 
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SEQ 263 



10974 065376 000000 

10975 063400 000000 

10976 063402 000000 

10977 
10978 



T28CNT 
T26CNU 
T28DIY 



.WORD 

. WORD 

. WORD 
.EVEN 



, TAPE TIMER COUNTER STORAGE AREA 
,TAPE TIMER COUNTER STORAGE AREA 
I DELAY COUNTER 



C7TKGA TK-P5 FRf END FUNC *3 MACRO M1200 
TEST 4: UfUTE/READ TAPE MARK 



20-APR-64 08jl3 



l<5 
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SEQ 269 



10960 

10981 

10982 

10985 

10984 

10985 

10996 

10987 

10988 

10989 

10990 

10991 

10992 

10993 

10994 

10995 

10996 

10997 

10998 

10999 

11000 

11001 

11002 

11003 

11004 

11005 

11006 

11007 

11008 

11U09 

11010 

11011 

11012 

11013 

11014 

11015 

11016 

11017 

11018 

11019 

11020 

11021 

11022 

11023 

11024 

11025 

11026 

11027 

11028 

11029 

11030 

11031 

11032 

11033 

11034 

11035 

11056 



063404 
063461 
063544 
063625 
063707 
063764 
064045 
064116 
064207 
064254 
064331 
064400 
064453 
064532 
064605 
064657 
064735 
065014 
065072 
065154 
065251 



065276 
065276 
065302 
065506 
065312 
065316 
065320 
065324 
065330 
065332 
065356 
065340 
065544 
065350 
065356 
065360 
065364 
065366 



065370 
065370 
065374 



124 
122 
124 
124 
124 
111 
127 
124 
124 
124 
122 
104 
124 
103 
124 
124 
124 
124 
104 
104 
127 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
012711 
012702 
012762 
005 742 
020227 
001371 
000207 



141 
145 
123 
123 
123 
154 
122 
123 
141 
123 
145 
162 
123 
126 
115 
115 
115 
115 
141 
141 
162 



063210 
100004 
063220 

000012 
063250 

000024 

OOOOOO 
000030 
177777 

OOOOOO 



160 
165 
125 
123 
125 
154 
111 
125 
ICO 
125 
167 
151 
125 
103 
115 
115 
115 
115 
164 
164 
151 



063230 



j LOCAL 
I - 



TEXT MESSAGES FOR TEST 



T28RIB 
T28PBP 
T28RDF 
T28RDG 
T28WDF 
T28L0Q 
T28SSR 
T28W0E 
T28B0T 
T28TM: 
T28RWN 
T280FL 
T28W0C 
T2evCK 
T24TMK 
T28RRM 
T28RRN 
T28RRP 
T28DTR 
T280TA 
TST28ID: 

J ♦ 



.ASCIZ 'Tap* Position Not Correct, RIB Should Be Set' 

.ASCIZ 'Residual Byte Counter Register (RBPCR) Not Correct' 

. ASCIZ ' TSSR Incorrect After READ REVERSE Into TAPE MARK' 

. ASCIZ 'TSSR Incorrect After SPACE Commend Into TAPE MARK' 

.ASCIZ 'TSSR Not Correct After Illegal Mode Bite Set' 

.ASCIZ 'Illegal Mode Bite, Failed To Set ILC Bit In XSTO' 

.ASCIZ 'WRITE MISCELLANEOUS Command Not Accepted' 

.ASCIZ 'TSSR Not Correct After READ DATA Command, Into TAPE MARK 

.ASCIZ 'Tape Not At BOT After REUINO Command' 

.ASCIZ 'TSSR Not Correct After FORMAT Command Reject' 

.ASCIZ 'Renind (POSITION) Command Not Accepted' 

.ASCIZ 'Drive 7 Select Failed To Set "OFL" In TSSR' 

.ASCIZ 'TSSR Not Correct After WRITE TAPE MARK Command' 

.ASCIZ 'CVC Set, Didn''t Reeet VCK In Meeeege Buffer' 

.ASCIZ * TMK Not Set After WRITE TAPE MARK Command' 

.ASCIZ 'TMK Not Set After READ REVERSE Into TAPE MARK' 

.ASCIZ 'TMK Not Set After SPACE REVERSE Into TAPE MARK' 

.ASCIZ 'TMK Not Set After READ FORWARD Into TAPE MARK' 

.ASCIZ -Data Transferred On READ REVERSE Into A TAPE MARK' 

.ASCIZ 'Data Compare Error, Data Read From Tape Not Equal 

.ASCIZ 'Write/Read Tape Mark' 
.EVEN 



To Wr i tten 



{ROUTINE TO RESTORE COMMANO PACKET TO START-UP (DEFAULT) VALUES 
j WRITE SUBSYSTEM MEMORY COMMANO 



t - 



0127G1 063320 



T28REST: 




SAVREG 




MOV 


*T28PAfKET,Rl 


MOV 


#100004, (RD* 


MOV 


#T28DATA,(Rl)f 


CLR 


(Rl)f 


MOV 


010. ,(R1)* 


MOV 


«T28BFR 4 CR1)» 


CLR 


CRD* 


MOV 


•20.,(Rn» 


CLR 


CRD* 


MOV 


#0,(R1) 


MOV 


#24, ,R2 


64$: MOV 


0177777, T28BFRCR2) 


TST 


(R2) 


CMP 


R2.0O 


BNE 


64$ 


RTS 


PC 


T28RT2: 




SAVREG 




MOV 


OT28PK2.R1 



jSAVE THE REGISTERS 

) START OF THE PACKET 

jWRITE SUBSYSTEM MEM. WITH ACK . 

j ADDRESS OF CHARAISTICS DATA BLOCK 

l EXTENDED ADDRESS 

I SIZE OF DATA BLOCK IN BYTES 

I ADDRESS Of MESSAGE BUFFER 

t LENGTH OF MESSAGE BUFFER 

; SELECT DRIVE ZERO 

;NUMBER OF LOCATIONS TO RF CLLARED 

I ALL ONES TO MESSAGL BUFFER 

iNEXT LOCATION 

i CHECK FOR END 

I KEEP GOING UNTIL DONE 

jRETURN 



I SAVE THE REGISTERS 
j START OF THE PACKET 



CZTKGA TK 25 FRT END FUNC 43 
TEST 4; wfclTE/READ TAPE MARK 
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SEQ 270 



11037 
11038 
11039 
11040 
11041 
11042 
11043 
11044 
11045 
11046 
11047 
11048 
11049 
11050 
11051 
11052 
11053 
11054 



11060 
11065 
11071 
11072 
11073 
11074 
11075 
11076 
1107 7 
11078 
11079 
11080 
11081 
11082 
11083 
11084 



11085 
11086 



11087 



11088 



065400 
065404 
065410 
065412 
065416 
065420 
065424 
065426 
065430 
065432 
065432 
065436 
065442 
065444 
065446 
065450 
065452 
065454 
065454 
065454 



11089 



065456 
065456 
065460 

065460 
065460 
065462 
065464 
065466 
065470 
065470 
065472 
065474 
065476 
065500 
065500 
065502 
065504 
065506 
065510 
065512 



012721 
012721 
005021 
012721 
005021 
012701 
005021 
005011 
000207 



012701 
005021 
005021 
005021 
005011 
000207 



1O4401 



000015 



000031 
065512 
160000 
177776 

0O1031 
065541 

oooooo 

0007 76 

002032 
065565 
000340 
OOOOOO 
000007 



100006 
063350 

000006 

063350 



T28RT3j 



063340 



MOV $100006, CRl)f 

MOV *T28BF2.CR1>* 

CLR (Rl)> 

MOV *6 /at)* 

CLR CR1';* 

MOV 0T28BF2,R1 

CLR (Rl)f 

CLR CRD 

RTS PC 

SAVREG 

MOV OT28PK3.R1 

CLR (Rl)f 

CLR (Rl)f 

CLR (Rl)f 

CLR (Rl) 

RTS PC 
ENDTST 



jWRITE SUBSYSTEM MEM. WITH ACK, 
I ADDRESS OF DATA BLOCK 
jEXTENDED ADDRESS 
jSIZE OF DATA BLOCK IN BYTES 

I POINT TO DATA SEL AREA 



jRETURN 



j GET PACKET ADDRESS 
j CLEAR COMMAND AREA 
, CLEAR ADDRESS AREA 
j CLEAR EXTENDED ADDRLSS AREA 
I SIZE OF DATA TRANSFER 
{RETURN 



L 10074 j 



TRAP 



CfETST 



.SBTTL HARDWARE PARAMETER CODING SECTION 

I THE HAROUARE PARAMETER CODING SECTION CONTAINS MACROS 
i THAT ARE USED BY THE SUPERVISOR TO BUILD P -TABLES. THE 
j MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
j INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
j MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
; WITH THE OPERATOR, 



BGNHRD 




.WORD L10076-LIHARQ/2 


L*HARD:: 




GPRMA 


HPM1, 0,0, 160000, 177776, YES 


.WORD 


TICODE 


.WORD 


HPM1 


.WORD 


T$LOLIM 


.WORD 


TIHILIM 


GPRMA 


HPM2,2,0,0,776,YES 


.WORD 


I I CODE 


.WORD 


HPM2 


.WORD 


TILOLIM 


.WORD 


TIHILIM 


GPRMO 


HPM3,4,0,34Q i 0,7 l YES 


.WORD 


TICODE 


.WORD 


HPM3 


.WORD 


340 


.WORD 


TILOLIM 


.WORD 


TIHILIM 


ENDHRO 




.EVEN 





;GET TSBA/TSDB REGISTER ADDRESS 



j GET VECTOR ADDRESS, 



iGET INTERRUPT PRIORITY, 



HARDWARE pSraMETe| N Bo&!|W£ HcV 


MACRO M1200 20 


-APR-84 


065512 


L10076j 




11090 065512 104 105 


126 HPM1: 


.ASCIZ 


11091 065541 111 116 


124 HPM2: 


.ASCIZ 


11092 065565 111 116 


124 HPM3: 


.ASCIZ 


11093 




.EVEN 


11094 







M5 
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DEVICE ADDRESS (TSSR) ' 
INTERRUPT VECTOR ' 
INTERRUPT PRIORITY 



SEQ 271 



N5 



s6f , fwARj K p^AMek& N 8oD 1 j!M8 



1 v MACRO M120O 20-APR-84 08:13 PAGE 127 
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SEG1 272 



11096 
11097 
11098 
11099 
11100 
11101 
11102 
11103 
11104 
11105 
11106 



11.10/ 



11108 



11109 
11110 
11111 



3.1112 
11113 
11114 
11115 
11116 
11117 
11118 
11119 
11120 
11121 
11122 
111" 
11124 
1112b 
11126 



.SBTTL SOFTWARE PARAMETER CODING SECTION 



112/ 
1128 
1129 

1130 
1131 
1152 
113;*. 
1134 
113') 
1136 



065616 
065616 
065620 
065620 
065620 
065622 
065624 
065626 
065626 
065630 
065632 



065634 



065634 



065634 
065700 
065730 
065760 



066010 
066010 
066012 
066012 
066014 
066016 
06602C 



000006 



000130 
065634 
177777 

001130 
065700 
177777 



105 
111 
120 
120 



000004 

023650 
031666 
051036 
061034 



116 
116 
105 
105 



101 
110 
122 
122 



I** 



THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P- TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR, 



L$SOFT{ 



BGNSFT 

.WORD L10077-L*SOFT/2 



L10077: 



SPM1 
SPM4 
SPM6 
SPM7 



CPRML 

.WORD 

.WORD 

.WORD 

GPRML 

.WORD 

.WORD 

.WORD 

GPRMO 

GPRMO 

ENOSFT 

.EVEN 



.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

.SCTTL 



5PMl,0,-l,YES 

TtCODE 

SPM1 

-1 

SPM4.2.-1.YES 

TICOOE 

SPM4 

-1 

SPM6 . 4 , D , 7777 , . 7 / / 7 # YES 

SPM7 ,6 ,0 , 7777 , , 7777 , YES 



j GET RAM DUMP FLAG 



j GET ITERATION CONTROL. 



5 GET l.OCAi. ERROR LIMIT 
; GET GLOBAL ERROR LIMIT 



'ENABLE CONTROLLER RAM DUMP ON ERROR 1 
'INHIBIT ITERATIONS 
'PER TEST ERROR LIMIT 
'PER UNIT ERROR LIMIT 

PATCH AREA 



066022 



jDISPATCH TABLE 

*** MOVE TO FRONT OF PROGRAM FUW RELEASE *+* 



DISPATCH TESTNU 

WORD 4 
LtDlSPATCK: : 

. WOftD T 1 

.WORD T2 

.WORD T3 

. WORD T4 



FINALLY A GENEROUS PATCH ARFA. 

AND AN ADJUSTMENT TO ACCOUNT FOR THE "LASTAD BIT?" HACK 
DESCRIBED IN "SUPPRG.hEM" tFQR REV C), 



PATCH: : 



B6 



(;ZTKGA TK-25 FRT 
F*ATCH AREA 

11137 
1113ft 
11139 
11140 066022 

066022 
066024 
066026 

11141 

11142 

11143 

11.144 

111*5 066026 

11146 066026 
066026 
066030 
066032 
066032 
066034 
066036 
066040 
066040 
066040 



END FLNC *3 MACRO M1200 20-APR-84 06il3 PAGE 127-1 



SEQ 2^3 



11147 
11146 

1114** 

1115D 

I11S1 

11152 
11153 



066040 
000005 



000000 
000003 

172522 
000224 
000240 



LILASTj j 

• ♦* 
i 
l "- 



.IF NZ,.63'/7 

. •. !377*l 

.ENDC 

LASTAO | SET LAST USED ADDRESS, 

.EVEN 

.WORD TIFREE 

.WORD TISIZE 

.SBTTL HARD CODED P- TABLE 

DIAGNOSTIC IS PRE -PARAMETERIZED PER THIS TABLE 

1 



LlOlOOt 



1101021 



BGNSETUP 

BGMPTAB 

.WORD 

.WORD L10102-./2-1 



000001 



.WORO 
.WORD 
.WORD 
ENDPTAB 

ENDSETUP 

.END 



172522 

224 

PRI05 













F6 








CZTKGA 
SYMBOL 


TK-25 FRT 
TABLE 


END FUNC *3 


MACRO M1200 
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T26WSS 


050151 


T27S2 


055662 


T28RES 


065276 


WC.IRW' 


' 000004 




T27AM3 


057177 


T27S3 


055664 


T28RIB 


063404 


WC.IOT- 


■ 000100 




T27BA 


057537 


T27TIM 


056644 


T28RN 


063366 


UC.I1T- 


• 000040 




T27BFR 


055540 


T27TM 


057000 


T28RRM 


064657 


WC.I5R" 


. 000020 




T27BF2 


055660 


T27TRL 


060133 


T28RRN 


064735 


UF.IEO- 


■ 000010 




T27B0T 


056551 


T27TSA 


060374 


T28RRP 


065014 


WF.IER- 000004 




T27BS0 


055660 


T27VCK 


057464 


T28RT2 


065370 


WF.IHI- 000200 




T27BS1 


055661 


T27WB 


055652 


T28RT3 


065432 


WF.IRE- 000040 




T27CNT 


055676 


T27W0C 


057411 


T28RWN 


064331 


WF.IWF- 000020 




T27CNU 


055700 


T27W00 


057321 


T28SSR 


064045 


UF.IWR- 


■ 000100 




T27C0M 


055672 


T27U0E 


056462 


T28SZ 


063346 


WF.I3R- 000002 




T27UAT 


055530 


T27W0F 


056270 


T28S2 


063352 


WF.I4R- OOOOOl 




T27DLY 


055702 


T27U0R 


055670 


T28S3 


063354 


WRTCHR 


010342 


G 


T270TA 


060536 


T27WNG 


055704 


T28TM 


064254 


WRTERR 


005011 




T27E0T 


056721 


T27WRF 


060456 


T28TMK 


064605 


WRTMSG 


004754 




T27L0N 


057701 


T27WSS 


057612 


T28VCK 


064532 


XFF.RAS 


016624 




T27LOO 


051106 


T268FR 


063230 


T28WB 


063342 


XNXM 


017312 




T27LOP 


057763 


T28BF2 


063350 


T28U0C 


064453 


XORBFO 


007432 




T27L0Q 


056345 


T2880T 


064207 


T28W0E 


064116 


XORFOR 


007550 




T27LOR 


056220 


T28BS0 


063350 


F28W0F 


063707 


XSTO ■ 


• 000006 


G 


T27NEF 


060221 
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063351 


T28W0R 


063370 


XST1 ■ 


• 000010 


G 


T270FL 


057246 


T26CNT 


063376 


T3 


051036 G 
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G 


T27PAC 
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063400 


T3.1 
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G 


T27PBP 
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063372 


T3,2 


051474 
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■ 000016 


G 


T27PK2 


055630 


T280AT 


063220 


T3.3 


052246 


xsoeoT- 


» 000002 




T27PK3 


055650 


T280LY 


063402 


T3.4 


053062 


XSOCON 


015212 




T27R6 


055652 


T280TA 


065154 


T3.5 


053756 


xsoeoT* 


• OOOOOl 




T27ROF 


055772 


T280TR 


065072 


T4 


061034 G 


XSOIE • 


• 000040 




T27RES 


06CK.54 


T28IMV 


063356 


T4.1 


061100 


XSOILA' 


• 000400 




T27RN 


055666 


T28L00 


061100 


UAM 


000200 G 


XSOILC- 


• 001000 




T27RNC 


057124 


T28L0Q 


063764 


UNITN 


002150 G 


XSOLET- 


• 020000 




T27RRF 


056041 


T280FL 


064400 


UNPEC - 


000006 


XSOMOT- 


• 000200 




T27RT2 


060746 


T28PAC 


063210 


USI 


004021 


XS^NEF- 


- 002000 




T27RT3 


061010 


T28PBP 


063461 


WAITF 


017134 G 


X500NL- 


• 000100 




T27RUN 


057055 


T28PK? 


063320 


WC.IFA- 


000200 


XSOPED- 


• 0OO010 




T27SC 


056136 


T28PK3 


063340 


WC.IFE- 


000002 


XSORLL- 


■ 010000 




T27SCF 


060317 


T28R8 


063342 


WC.IGO- 
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XSORLS' 


■ 040000 




T27SSR 


056426 


T26RDF 


063544 


WC . IRE • 


000010 


XSOTMK' 


■ 100000 




T27SZ 


055656 


T28R0G 


063625 












. ABS. 


066040 
OOOOOO 


000 
001 














ERRORS 


DETECTED: 


















SEQ 277 



XSOVCK 
XSOWLE 
XSOWLK 
XS1C0N 
XS2C0N 
XS3C0N 
XXCOMM 
XIALWA 
XIFALS 
XtOFFS 
XI TRUE 
XI. COR 
Xl.DLT 
X1.M8Z 
Xl.RBP 
XI. SPA 
Xl.UNC 
X2.BUF 
X2.EXT 
X2.0PM 
X2.RCE 
X2.REV 
X2.SPA 
X2.UNI 
X2.WCF 
X3.DCK 
X3.MBZ 
X3.M0E 
X3.0PI 
X3.REV 
X3.RIB 
X3.SPA 
X3.TRF 
X4.HSP 
X4.MBZ 
X4.RCE 
X4.TSM 
X4.WRC 



000020 
004000 
000004 
015257 
015324 
015371 
003070 
OOOOOO 
000040 
000400 
000020 
020000 
100000 
017375 
000400 
040000 
000002 
000100 
000200 
100000 
040000 
000077 
035400 
000007 
002000 
000010 
0O0OO6 
177400 
000100 
000040 
OOOOOl 
000200 
000020 
100000 
017400 
040OO0 
020000 
000377 



VIRTUAL MEMORY USklD: 29424 WORDS ( 115 PAGES) 
DYNAMIC MEMORY: 20060 WORDS ( 77 PAGES) 
ELAPSED TIME; 00:37:17 
CZTKGA. BIC. CZTKGA/- SP-SVC/ML, CZTKGA 
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TEST 
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TEST 
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TEST 
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TEST 4i WRITE/READ . 
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TEST 
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TEST 
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TEST 4 i WRITE/READ . 
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TEST 


2: 


REREADS 


...Ml 


HARDWARE PARAMETER C. 
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TEST 
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REREADS 


..♦Nl 
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TEST 
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TEST 
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